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Preface 



This manual is intended as a guide to programming 
techniques that facilitate your use of DE/RPG. The IBM 
5280 Introduction to DE/RPG should be read first. For 
details about the syntax of the language and specific 
details about its functions, see the IBM 5280 DE/RPG 
Reference Manual. 

This manual has seven parts. Chapters form specific 
descriptions within each part. It is recommended that 
the first time you use this manual, you read it from front 
to back. Thereafter, you may want to use the index or 
table of contents to locate a specific subject. 



Program listings have been included to illustrate various 
functions. Symbolic displays and diskettes have been 
provided to demonstrate what appears on the displays 
and what appears on the diskette data set. 

Note: This manual follows the convention that he 
means he or she. 



Second Edition (June 1981) 

This is a major revision and obsoletes SC21-7804-0 and incorporates SN21-8195. 
Because the changes and additions are extensive, this manual should be reviewed in its 
entirety. 

Changes are periodically made to the information herein; these changes will be 
reported in technical newsletters or in new editions of this publication. 

This publication is for planning purposes only. The information herein is subject 
to change before the products described become available. Also, this publication 
contains examples of data and reports used in daily business operations. To 
illustrate them as completely as possible, the examples include the names of 
individuals, companies, brands, and products. All of these names are fictitious 
and any similarity to the names and addresses used by an actual business 
enterprise is entirely coincidental. 

Use this publication only for the purposes stated in the Preface. It is possible 
that this material might contain reference to, or information about, IBM products 
(machines and programs), programming or services that are not announced in 
your country. Such references or information must not be construed to mean 
that IBM intends to announce such IBM products, programming, or services in 
your country. 

Publications are not stocked at the address below. Requests for copies of IBM 
publications and for technical information about the system should be made to 
your IBM representative or to the branch office serving your locality. 

This publication could contain technical inaccuracies or typographical errors. Use 
the Reader's Comment Form at the back of this publication to make comments 
about this publication. If the form has been removed, address your comments to 
IBM Corporation, Information Design and Development, Department 997, 11400 
Burnet Road, Austin, Texas 78758. IBM may use and distribute any of the information 
you supply in any way it believes appropriate without incurring any obligation whatever. 
You may, of course, continue to use the information you supply. 



© Copyright International Business Machines Corporation 1980, 1981 
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Introduction 



Before beginning this manual you should have an understanding of the 
following: 

• The relationship of the various DE/RPG manuals 

• The listings used as samples in this manual 

Each of these topics is described in the following text. 

HOW TO USE THE IBM 5280 DE/RPG MANUALS 

Three manuals have been provided to describe the DE/RPG (data entry with 
RPG subroutines) program product. The following list indicates the audience 
for which each manual was written, an overview of the manual contents, and a 
set of objectives for each manual. Review this list before beginning to use this 
manual to determine which manual provides background necessary for your 
understanding of the subject. 

IBM 5280 Introduction to DE/RPG, SC21-7803. The audience for this manual 
is anyone who is either unfamiliar with data entry or with this program product 
and who needs to understand the data-entry functions of the program product. 
The manual takes the reader through the entire process of creating a simple 
data-entry program (beginning with designing the displays to be used and 
concluding with using the program to enter data). A second data-entry 
program is included to help the reader understand some of the more advanced 
data-entry functions provided. The most complex subject that is included in 
the manual is the use of tables. The objective of the manual is to familiarize an 
inexperienced user with some basic data-entry functions and operations 
provided by DE/RPG and to provide the user with enough information to allow 
him to create a basic DE/RPG program. The manual does not contain any 
information about the calculation specification operations available with 
DE/RPG. 

IBM 5280 DE/RPG User's Guide, SC21 -7804. The audience for this manual is 
a person who has some knowledge of either DE/RPG or of programming 
concepts (preferably one who has used another program language). The 
manual describes characteristics of the language and illustrates how its 
functions can be applied to typical business applications. The topics progress 
from the simple to the complex. The objective of the manual is to provide the 
user with an understanding of how DE/RPG can be used to solve 
business- related problems. Since some of the more powerful functions 
provided with DE/RPG are the result of combining operations, another 
objective of the manual is to describe some of these combined operations and 
to show how they can be used. 
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The User's Guide has been organized to allow you to find the specific topic you 
need. There are seven parts within the manual; each part is marked by a title 
page. When you read the manual for the first time, read through all the parts 
to understand the organization of the program product and of the manual. 
Once you are familiar with the product, you can refer directly to the specific 
descriptions you need. The User's Guide is written to present topics related to 
the DE/RPG program product; therefore, it does not include information about 
operating the system. For this type of information, see the IBM 5280 DE/RPG 
Reference Manual, SC21-7787, the IBM 5280 Operator's Guide, GA21-9364, 
and the IBM 5280 System Concepts manual, GA21 -9352. 

IBM DE/RPG Reference Manual, SC21-7787. The audience for this manual is 
all users of the DE/RPG program product. The content of the manual includes 
detailed descriptions of the characteristics, functions, and operations provided 
by the program product. The objective of the manual is to provide all the 
information required for the user of the program product to code and debug 
programs. 



HOW TO READ THE LISTINGS IN THIS MANUAL 

To help you learn how to effectively use DE/RPG, this manual includes actual 
prdgram listings. These listings merge statements from the Z-, A-, and C- 
specifications. They do not include column numbers or column heading information. 
If you need to determine the location of a specific entry on the listings, use the back 
of the Z- and A- specifications included in Appendix A to locate the column number 
and then match that column number on the listing with the appropriate description 
on the back of the specifications. The top markings on the backs of the specifications 
match the characters on the listings. The bottom markings on the backs of the 
specifications should not be used for reading the listings in this manual. 

The following example illustrates how to use the listings and specifications in the 
manner described: 

1. Place the top of the Z-specification (back side) under the Z-specification 
line in question. Align the leftmost side of the listing with the leftmost 
character mark on the specification. 

2. Locate the column number that identifies the character(s) you want to 
identify (in this example, the characters are H2) Q. 

3. Match the column number with a column number heading on the back 
side of the specification Q. The description explains the entry. 

Note; The C-specification does not have descriptive information. To determine 
the meaning for a particular column entry, find the column number in the 
manner previously described and use the DE/RPG Reference Manual to locate 
the column number heading and its description. 

The backs of the Z- and A-specifications are included in case you do not have pads 
of specifications available. If you need to use these forms, tear them out of the 
manual. 



0000 iz******************************************** ************************ 

00002Z* PROGRAM 77. 

3 Z ******************************************************* * * * * * * ******* 

00004ZJ COUNTEX TF-] I...E < lilSKE 7) 

00005Z H2EXMPLE IE 

00006Z R H2 

III I I I I I I II I I I I I I I I II II I I I I I I I II I I I II I III II I I I I I I I II I I I I II I I I I I I I I II I I I I I I I I I I II 

1-10 ' 1120 ' 21-30 31-40 ' WW 41-50 5160 6170 7180 



1 -S Identifies the source statement order. 

6 Identifies the type of source statement. 

7 Names the type of source statement: 

•-User comment 
J^Job specification 
blank-Format specification 

8-9 The identification associated with this format: I 

1 through 9-A single numeric character ID. I 

AO through Z9-A two-character ID consisting of 
an alphabetic character followed by a numeric 
character. 

10-17 The name used to: 

- identify the job (J in column 7). 

- identify the format or subroutine (blank in column 
7). 

These columns are not used if column 21 contains an 
R. 

18-19 Reserved. 

Note: Columns 20-54 are not used if column 7 contains a J. 

20 Specifies the number of times the format is repeated 
before the next format is used: 

1 through 9-Repeat the format for the specified 
number of times unless the SEL FMT or NEXT 
FMT key is pressed. 

blank or N-Repeat the format until the SEL FMT or 
NEXT FMT key is pressed. 

21 Specifies how the format is used: 
E-(Entry) used to enter and display data. 
R-(Review) used to select a format for scan, update, 

or verify of existing records. 

22-37 Used for logical selection of a format. Multiple tests 
are allowed. In enter mode, the format selected is 
used to format the next record entered. In review 
mode, the format selected is used to display the 
current record. 

22 in review mode (column 21 contains an R), an A 
specifies the ending of two characters in the data 
record to create a unique record identifier. 

23-30 'POSnnnn identifies the position in the data record 
to be tested, where nnnn is a numeric value from 1 
to 1024. 



31-32 Reserved. 

33-34 The characters EQ or blank when a character to test 
for is specified in position 35-37. 

35-37 Specifies the character that controls format selection 
if it matches the character in the data record. 

38-44 Reserved. 

45-46 Specifies the identification of the format used for the 
entry or display of the next record. If columns 22-37 
are specified, the format is selected when a match 
occurs. If columns 22-37 are not specified in enter 
mode (E in column 21), the format is selected when 
the repeat count (column 21) is met or the NEXT 
FMT key is pressed. If columns 22-37 are not 
specified in review mode (R in column 21). the 
format is selected if no previous match occurs. 

47-54 Reserved. 

55-80 Keywords that specify information used for jobs or 
formats: 

JOB specif icetions (J in column 7): 
CFILE (data setHncludes the COPY function in the 

job. The parameter data set is the data set name 

from which records will be copied. 
DATE( , DMY/ , YMD)-The format of the date available 

in UDATE The default is "MDY, where M = 

month, D — day, and Y = year. 
EDITC(cuptd)-Five characters that define the editing 

control for output fields, where: 

- cu is a two-character currency symbol (default 
= b$). 

- p is the decimal point character (default = .). 

- t is the thousand separator character (default 
= ,). 

- d is the date separator character (default = /). 
The system default for this option is b$.,/ if 

EDITC is not specified. 
ENTRATR (attr... (-Specifies the attributes that are 
applied to all input/both fields only when the 
fields are being entered, where attr is: 

BL (blink) 

CS (column separators) 

HI (high intensity) 

ND (nondisplay) 

Rl (reverse image) 

UL (underline) 
A combination of attributes can also be used. 
EXITATR (attr...)-Specifies the attributes that are 
applied to all input/ both fields after the fields 
have been entered. See the ENTRATR for a 
description of the attr parameter. 



Introduction vii 



Part 1. Creating Data Sets 



This part of the manual contains general information about creating diskette 
data sets using DE/RPG; it consists of two chapters: 

• Chapter 1 . Characteristics of Data Entry Programs That Use Transaction 
Files 

• Chapter 2. Characteristics of Application Programs That Use Subroutines on 
the C-Specifications 

DE/RPG uses two basic kinds of programs to create data sets: (1) data-entry 
programs and (2) application programs. Application programs can further be 
subdivided into interactive and noninteractive programs. 

Data-entry programs are primarily for transcribing data from an existing source 
into data sets on the diskette; they normally have limited preprocessing 
requirements. This type of program allows interactive entry and provides data 
checks and edits required for accurate entry. Data-entry programs also provide 
operator- controlled keyboard functions that enhance the entry process. 

Application programs are primarily for processing data. This type of program 
does not generally require extensive operator entry. It often uses existing data 
as input and performs automatic operations against the data with limited or no 
operator interaction. Application programs normally process data rather than 
create it. Interactive application programs can be used when a combination of 
data-entry and processing functions is required. 
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The samples in Figure 1-1 illustrate the two basic program types. Sample A is 
a data-entry program. Sample B is an interactive application program, and 
Sample C is a noninteractive application program. 

The displays and diskette data sets that result from using the programs are 
also illustrated in the figure. Numeric keys Q indicate the parts of the program 
that produce the matching displays or data sets. 



0000 iZ****** ****** ********* 
00002Z* PROGRAM i. FIGURE 
00003Z ********************* 
00004ZJ SAMPLE i 
00005Z AiBEGIN IE 
00006Z A2END IE 
00007Z R *P0Si 

00008Z R *P0Si 

00009A F INPUT 

000 iOA R BEGIN 

OOOiiA FLDi 

00012A FLD2 

00013A FLD3 

00014A R END 

00015A FLD4 

00016A FLD5 

00017A FLD6 

00018A F EXDATAST 

00019 



Sample A 

****************************************** 
l-i SAMPLE A IN THE DE/RPG USER'S GUIDE 
****************************************** 

TFILEC EXDATAST)! 

A2 

Ai 

' B' Ai 

' E ' A2 

37 DEVICE (CRT) DSPSIZ<6 80) 

i I HINSERTC 'B' ) 
30 I EJpMT< CUSTOMER NAME) 
6 I QpMT( NUMBER) 

i I B|INSERT( 'E' ) 

6 21 ~?PMT< PAYMENT) 

9 21 QpMTCOUTSTANDING BALANCE) 
37 DEVICE<DISK X ' 4000 ' ) 



OOOOiZ*** 

00002Z* P 

O0003Z*** 

00004ZJ 

00005Z Ai 

00006A 

00007A 

00008A 

00009A 

000 iOA 

OOOiiA 

00012A 

00013A 

00014A 

000i5A 

000i6A 

000i7A 

00018A 

000i9A 

00020A 

0002iA 

00022A 

00023A 

00024C 

00025C 

00026C 

00027C 

00028C 

00029C 



Sample B 

****************************** 
ROGRAM 2. FIGURE i-i SAMPLE B 
****************************** 
SAMPLE i 
SUBCON iE 

F INPUT 37 
R BEG 

FLDi i I 

FLD2 30 I 

FLD3 6 I 

R ENDING 

FLD4 i I 

FLD5 6 21 

FLD6 9 21 

F EXDATAST 37 
R BEGIN 
FLD2 
FLD3 
FLDi 
R END 
FLD6 
FLD4 
FLD5 
SUBCON 



****************************** 
IN THE DE/RPG USER'S GUIDE 
****************************** 



Ai 

DEVICE(CRT) DSPSIZ(A 80) 

|INSERT( 'B' ) 
PMT< CUSTOMER NAME) 
PMT( NUMBER) 



B INSERT < 'E' ) 
PMT( PAYMENT) 
J|pMT( OUTSTANDING BALANCE) 
DEVICE(DISK X'4000') 

i 
3i 
37 



BEGSR 
EXFMTBEG 
EXFMTENDING 
WRITEBEGIN l 
WRITEEND I 
ENDSR 
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OOOOiZw* 

00002Z* 

00003Z** 

00004ZJ 

00005Z A 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

0O024A 

00025C 

00026C 

00027C 

00028C 

00029C 

00030C 

00031C 

00032C 



Sample C 

********************** ******************************* WW****** 

PROGRAM 3. FIGURE i-i SAMPLE C IN THE DE/RPG USER" 5 GUIDE 

************************************************************* 

NONINT 



iOUT 



NOi 
NOi 
NOi 



iE 
F MASTi 
R BEG 

FLDi 

FLD2 

FLD3 
F MAST2 
R ENDING 

FLD4 

FLD5 

FLD6 
F EXDATAST 
R BEGIN 

FLD2 

FLD3 

FLDi 
R END 

FLD6 

FLD4 

FLD5 
OUT 
LOOP 



37 

i 
30 

6 
16 

i 

6 

9 

37 



no: 
no: 
no: 



BEGSR 
TAG 

READ BEG 
READ ENDING 
WRITEBEGIN | 
WRITEEND ■ 
GOTO LOOP 
ENDSR 



EOJ 
DEVICE(DISK X'4000' ) 



DEVICE(DISK X'4000' ) 



DEVICE<DISK X'4000') 



Oi 
02 



Figure 1-1 (Part 2 of 4). Program Types 
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OOOi A 40 

CUSTOMER NAME 

B 



/ 

OOOi A 40 



NUMBER 

B* *************** *************, 



/ 

OOOi A 40 



PAYMENT 
E 



OOOi A 40 
OUTANDING BALANCE 
E******. 



* indicates data 
. . . indicates the length of an unfilled field 
Figure 1-1 (Part 3 of 4). Program Types 
4 



I J 



I J 



\ J 



I J 




\ FLD2\ FLD3VV E\FLD5 \flD6\ 



Data Set Resulting from the Program in Sample A 




FLD2 \ FLD3 



Y V ld6 VV lds \ 



Data Set Resulting from the Programs in Sample B and Sample C 
Figure 1-1 (Part 4 of 4). Program Types 
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The data sets that result from the programs in Figure 1-1 contain the same 
fields but in a different sequence. The sequence of the fields in the data sets 
is not an important difference in the programs. It is possible for the program 
in Sample A to produce a data set exactly like that produced by the program in 
Sample B or Sample C. The important difference in the programs is the way 
that they are executed by the operator. Although the programs produce the 
same displays (except for Sample C which has no display) and similar data 
sets, their execution is different. 

This part of the manual describes the differences in program types offered by 
DE/RPG. To understand these differences, you must first understand some 
basic information about the way the IBM 5280 system works. 

The IBM 5280 system uses partitioned areas of user storage for the execution 
of DE/RPG programs. Figure 1-2 illustrates this storage area division. 



The IBM 5281 Data Station 



The IBM 5286 Dual Programmable 
Data Station 



Designated as 
Keyboard 3 



Designated as 
Keyboard 2 




Foreground Partitions < 



Partitioned Main Storage 
for the IBM 5286 



Common Area 
15 K Bytes 



First partition linked to Keyboard 1 
10 K Bytes 

A data-entry program requiring operator 
entries is in this partition. 



Second partition linked to Keyboard 2 
1 1 K Bytes 

A data-entry program requiring operator 
entries is in this partition. 



Third partition linked to Keyboard 3 
12 K Bytes 

An interactive application program is in 

this partition. It requires operator interaction. 



Background partition 
16 K Bytes 

A non interactive application program is 
in this partition. It requires only limited 
operator interaction. 



Figure 1-2. A Sample Partition Division of Main Storage 



Creating Data Sets 7 



There are two kinds of partitions: foreground and background. Each data 
station has its own foreground partition. The background partitions are not 
associated with a particular data station; they can be used by any operator 
using any data station in the system. 

All programs that require extensive operator interaction should be used in a 
foreground partition. The foreground partition has control of the keyboard and 
display until it temporarily relinquishes its control to a background partition 
upon request from a program in the background partition. Control returns to 
the foreground partition once the requirements of the background partition 
have been met. 

Programs that can execute without keyboard input can be loaded into a 
background partition and can be executed concurrently with a program in a 
foreground partition. A background partition is an area of user storage that is 
attached to the keyboard /display only when keyboard input is needed by the 
program and only as allowed by the operator of the data station. Application 
programs may be executed in either foreground or background partitions 
depending on whether or not they will require operator attention during the 
execution of the program. 

Figure 1-3 illustrates the differences between program types in DE/RPG. 



Interactive Data-Entry Program with 
no Subroutines on the C-Specification 

• I/O control is accomplished through 
TFILE on the Z-specification. 



Keyboard functions such as AUXST, 
AUXDUP, and CHECK(AD) and 
CHECK(AS) are available. 

All keyboard modes are operational 
( ent er, u pdate , verify, and rerun). 

Records are automatically written into 
a transaction data set as they are 
completed (unless writing is 
suppressed). 

Data set organization is always 
sequential as entered. 

Limited resequencing of fields in a 
record is available. 



Interactive Application Program with 
Subroutines on the C-Specification 

• I/O control is accomplished through 
EXFMT, READ, CHAIN, and WRITE 
on the C-specification. 

• Keyboard functions such as AUXST, 
AUXDUP, and CHECK(AD) and 
CHECK(AS) are available. 

• The execute mode is operational. 

• Records are written into a named data 
set only when specified by a WRITE 
(or UPDAT) on the C-specification. 



Data set organization can be 
sequential as entered, or by key, or 
by index. 

Complex resequencing of fields in 
multiple records is available. 



Noninteractive Application 
Program with Subroutines on 
the C-Specification 

• I/O control is accomplished 
through READ, CHAIN, and 
WRITE on the C- 
specification. 

• Not applicable. 



Not applicable. 

Records are written into a 
named data set only when 
specified by a WRITE (or 
UPDAT) on the C- 
specification. 

Data set organization can be 
sequential by key, or by 
index. 

Complex resequencing of 
fields in multiple records is 
available. 



Figure 1-3 (Part 1 of 3). Comparison of Functions Based on Program Type 
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Interactive Data-Entry Program with 
no Subroutines on the C-Specif ication 

• Program termination is through the 
use of the End of Job key or by EOJ 
on the entry format line. 



Interactive Application Program with 
Subroutines on the C-Specif ication 

• Program termination is conditioned in 
the subroutine and controlled by EOJ 
on the entry format line. 



Noninteractive Application 
Program with Subroutines on 
the C-Specif ication 

• Program termination is 
conditioned in the subroutine 
and controlled by EOJ on the 
entry format line. 



• Display format control is 
accomplished by testing and the next 
format ID on the Z-specif ication. 

• CLRL is allowed to retain data from a 
previous record on the display. 

• EDTCDE for the display is not 
allowed. 



CFILE for manual copying of records 
is available. 

PRTFILE for manual unformatted 
printing of records is available. 

No formatted printing is allowed. 

No communications support is 
provided. 



• Display format control is 
accomplished by EXFMT and 
conditioning indicators on the C- 
specif ication. 

• CLRL is not allowed. 



EDTCDE for the display is allowed to 
provide punctuation editing (output 
fields only). 

CFILE is not available. 



• PRTFILE is not available. 



• Formatted printing is allowed. 

• Communications is provided for 
remote sending and receiving of data. 



• Not applicable. 

• Not applicable. 

• Not applicable. 

• Not applicable. 

• PRTFILE is not available. 

• Formatted printing is allowed. 

• Communications is provided 
for remote sending and 
receiving of data. 



Figure 1-3 (Part 2 of 3). Comparison of Functions Based on Program Type 
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Interactive Data-Entry Program with 
no Subroutines on the C-Specification 

• Indicator control is limited to 
conditioning error messages and 
CHECK(BY). 

• Updating records is accomplished 
manually through the update mode. 



Deleting records is accomplished 
manually through the key sequence. 



• Inserting records is accomplished 
manually through the key sequence. 

. The RANGET, XCHK, LOOK, and 
SUBST table functions are available. 



Interactive Application Program with 
Subroutines on the C-Specif ication 

• Indicator control can condition a 
variety of operations on the C- 
specif ication. 

• Updating records is accomplished 
through the UPDAT statement on the 
C-specif ication. 

• Deleting records is accomplished 
automatically through the DELET 
statement on the C-specif ication. 

• Not applicable. 

. The RANGET, XCHK, LOOK, SUBST, 
and LOKUP table functions are 
available. 

• The LOKUP table function and the 
use of the arrayname, index combina- 
tion as a variable field is available. 



Noninteractive Application 
Program with Subroutines on 
the C-Specification 

• Indicator control can 
condition a variety of 
operations on the C- 
specif ication. 

• Updating records is 
accomplished through the 
UPDAT statement on the C- 
specif ication. 

• Deleting records is 
accomplished automatically 
through the DELET statement 
on the C-specif ication. 

• Not applicable. 

• The LOKUP table function 
and the use of the 

array name, index combination 
as a variable field is available. 

** When tables are used on the 
C-specif ication they are 
considered RPG arrays and 
not RPG tables. 



Figure 1-3 (Part 3 of 3). Comparison of Functions Based on Program Types 



Creating Data Sets 1 1 
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Chapter 1 . Characteristics of Data-Entry Programs that Use Transaction Files 



Programs that are created exclusively for data -entry purposes are created by 
using transaction files. Transaction files include the use of a special keyword 
(TFILE) on the Z-specification; the TFILE keyword evokes data-entry functions 
not otherwise available to the operator. The sample in Figure 1 -4 illustrates 
the steps involved in a program that uses a transaction file. 
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OOOOi z********* 

00002Z* PROGRAM 

00003Z**ftft*«**ft 

00004ZJ SAMPLE 

00005Z AiBEGIN I 

00006Z A2ENDH 

00007Z ~" 

00008Z 

00009A 

OOOiOA Ej 

OOOiiA 

00012A 

00013A 

00014A K 

00015A 

00016A 

00017A 

00018A B 

00019 



KKKK«N«KNK««K 

4. FIGURE i 

************* 
i 

Q IE 

*" IE 

R *POSi 
R *POSi 
F INPUT 
|R BEGIN 
FLDi 
FLD2 
FLD3 
|R END 
FLI)4 
FLD5 
FLD6 

If exdatast 



******««************«**«« **************** 

-4 IN THE DE/RPG USER'S GUIDE * 

fffftt**««ttft*«*K*tt«ft****«*tt*#»*tt*«ft««*««fttttt* — 

TFILE(EXDATAST) I 

A2 

Ai 

'B' Ai 

•E' A2 

37 DEVICE(CRT) DSPSIZ(6 80) 

i I INSERTCB') 

30 I PMT( CUSTOMER NAME) 

6 I PMT( NUMBER) 

i I INSERT('E') 

6 21 PMT(PAYMENT) 

9 21 PMT( OUTSTANDING BALANCE) 

37 DEVICE(DISK X'4000' ) 



Storage 




Diskette Data Set 



Program Using a 
Transaction File 



1 . Specify a name for the transaction file to use. Q 

2. Specify the first entry format to be used for the display. Q 
The record for this must be defined on the A-specification. Q 

3. When the record is complete, it is automatically written in the transaction data set.Q 
The data set name used with TFI LE must match a file line on the A-specification. 

4. Specify the second entry format to be used for the display. Q 

The record for this format must be defined on the A -specification.^ 

5. When the record is completed, it is automatically written in the transaction data set. Q| 
The name on the file description line for the diskette must match the name used with TFILE. 

6. The program is complete. The operator can choose either format by a key sequence (FMT SEL and 
ID number). The program can be terminated if the operator uses the End of Job key. 

Note: If the operator wants to verify or update a record or add to the data set, the correct 
format is automatically selected. 

Figure 1-4. Characteristics of a Data-Entry Program 
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Programs using transaction files have the following characteristics: 

• The enter, verify, update, and rerun modes and numerous key-initiated 
functions such as auto record advance are valid. 

• All programmed functions which are related to the keyboard are valid (this 
includes keywords such as AUXDUP and AUXST and keyboard functions 
such as auto dup, and auto skip). 

• Writing records in the diskette data set is automatically accomplished at the 
completion of each entry format unless the writing of the record is 
suppressed. Part 2 describes this topic in detail. 

• Special job functions such as manually copying records from other data sets 
(CFILE) and unformatted printing (PRTFILE) are available. Part 6 provides 
detailed information about unformatted printing. 

• Limited record reformatting is available. You can only reformat fields within 
a single record, and you must use all fields in the original record. Part 2 
describes this topic in detail. 

• Automatic format chaining and operator- controlled format selection is 
available. Part 2 describes this topic in detail. 

• All input/output control for the transaction data set is automatic (in other 
words, the operator cannot control the input/output devices through the 
transaction file). 

Whenever a transaction file is used to create a data set, the result is a data set 
that contains sequentially written records. Updating the data set is 
accomplished when the operator initiates the update mode through the 
keyboard. The status line on row 1 of the display informs the operator of the 
current mode. 
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MODES OF OPERATION AVAILABLE FOR PROGRAMS USING TRANSACTION 
FILES 

The basic modes that are available for data-entry programs are enter, update, 
verify, and rerun. Within the data-entry program, the entry format statement 
and the review format statement on the Z -specification specify the record 
arrangement to use for the modes. The entry format determines the record 
arrangement to use during the enter mode. The review format determines the 
record arrangement to use during the update, verify, and rerun modes. 

The enter mode of operation allows an operator to provide initial data entries 
into the record or to add new records to the data set using the entry format 
display as a guide. The update mode allows the operator to change data in a 
record. The verify mode helps the operator check the accuracy of the initial 
entry by allowing him to reenter the data without seeing the initial entry; upon 
the completion of the verified entry, the. initial entry is displayed and an error is 
flagged if the entries do not match. The operator is given the choice of actions 
to take: either to correct the initial entry or to accept it. The rerun mode 
automatically cycles the program through its automatic functions and 
calculations. One use for this mode is to update all references to a field that 
has been duplicated and now needs to be corrected. By correcting the initial 
entry of the field and then using the rerun mode, all fields in which the initial 
entry had been duplicated now contain the corrected value. 



Manual Selection of an Operating Mode 

The operator selects the initial operating mode through a keyboard entry in 
response to the mode selection menu. The format to be used for the modes 
can be selected either automatically through the next-format sequence defined 
on the Z -specification or by manual operator selection. 

The following text illustrates how an operator selects a mode for a data-entry 
program and how the appropriate format is then selected either by the 
program or by the operator. 

Once a data-entry program has been written, compiled, and brought into a 
foreground partition, the following display appears. 

Note: Values that were present in the program appear on the display. The 
displays show sample values. 



i 



16 



Name of DE/RPG 
Object Program 



OOOi A 2i 40 

Program name: SYSSEP 
Device address: 4400 
Partition number:- 



7 



t 



Press ENTER 



05-00 



J 



When the Enter key is pressed, the mode selection menu appears. 



I 



OOOi D Oi 40 
Select Initial Data Entry Mode 
Options are: 

i. Enter-New/f|||||||^ 3. Verify 
2. Update 4. Enter-ADD 

Select Option: i Press ENTER 



5 . Rer un 



06-81 



J 



I 



Once the mode has been selected, the display advances to the data set open 
prompt. 

Q 0030 N Gi FO E 

Enter data for data set open 
Data set name. MASTER 

Device address: 4400 

Press ENTER 



"\ 



06-82 I 



When the values for the display fields have been accepted or supplied and the 
Enter key has been pressed, the file is automatically opened. The operation of 
the program named in the first display takes control. 
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Automatic Selection of the Correct Format for the Manually Selected Mode 

The entry and review statements on the Z -specification determine the format. 
The sample in Figure 1-5 illustrates the coding required for the entry and 
review modes. 



********************** 
PROGRAM 5. FIGURE 1- 

********************** 
SAMPLE 



iONE 
2TW0 



OOOOiZ* 

00002Z* 

00003Z* 

00004ZJ 

0000 

0000<L" 

00007Z 

00008Z 

00009A 

00010A 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020 

00021 

00022 

00023 

00024 

00025 



Figure 1-5. A Program Illustrating the Specification of the Entry and Review Modes 

Formats ONE and TWO (with format IDs A1 and A2 respectively) are specified 
in the entry format statements for the enter mode Q; format IDs A1 and A2 
are specified in the review format statements Q for the update, rerun, and 
verify modes. Whenever the operator selects option 1 or option 5 on the mode 
selection menu, format ONE is displayed first. 



IE 
IE 
R *P0S3i 
R *P0S31 
F DISPi 
R ONE 
FLDi 
FLD2 
FLD3 
R TWO 
FLD4 
FLD5 
FLD6 
FLD7 
F EXPi 



**************************************** 
5 IN THE DE/RPG USER'S GUIDE * 

**************************************** 

TFILE(EXPi) 
A2 SLN0(3) 
Ai SLN0(3) 
'0' Ai n 
■T' A2«* 
3i DEVICE(CRT) DSPSIZ<6 80) 

15 IOOIOOIDSPATR(UL) 
15 I002001DSPATR(UL) 
1 I00300iINSERT( '0') 

10 IOOIOOIDSPATR(UL) 

10 I001030DSPATR(UL) 

10 I001050DSPATR(UL) 

1 I001080INSERTCT') 
31 DEVICE (DISK X'4000' ) 
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The following display illustrates the entry format named ONE. 



000 i 



A 40 



I 



Format ONE is displayed once, then the next entry format (TWO) is displayed. 



J 




When the data for format TWO has been entered, format ONE is redisplayed. 
This process of displaying format ONE and then format TWO continues until 
the operator stops the job by using the End of Job key. 

Whenever the operator selects one of the review mode options, format ONE or 
TWO is automatically selected for the display based on the entry in the test 
position of the current diskette record. If an Q is in the test position, 
format ONE is displayed for the rerun, update, or verify modes. If a T Q is in 
the test position, format TWO is displayed for the rerun, update, or verify 
modes. 




When this is the 
current record, 
the format for 
ONE is used. 



FLD1 FLD2 FLD3 



When this is the current 
record, the format for 
TWO is used. 



■x 



FLD4 FLD5 FLD6 FLD7 



Note: The review format and the entry in the usage column on the A- 
specification for the field determine whether the fields in the record are 
displayed. The operator manually selects the mode in which to operate, and 
the program automatically selects the appropriate format for the mode. 
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KEY-INITIATED MODES 

In addition to the basic data-entry modes (enter, update, verify, and rerun), 
several key- initiated modes are available for programs using transaction files. 
The IBM 5280 DE/RPG Reference Manual contains detailed descriptions of all 
keys and modes. Briefly, the key-initiated modes offered by DE/RPG are: 



Update search (U-S) 

Update insert (U-l) * 

Verify correct (V-C) 

Verify insert (V-l) 

Verify search (V-S) 

Verify display (V-D) 

Copy (C) 

Copy search (C-S) 

Copy transfer (C-T) 

Rerun display (R-D) 

Print (P) 

The designations in parentheses are the codes used to represent the modes in 
positions 35 through 37 of the status line. The designations for the four major 
modes are enter (E), update (U), verify (V), and rerun (R). 
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The following list names the keys that are active during data-entry programs 
and indicates in which modes they can be used: 



Function 



C-S C-T P R R-D 



Modes 
U U-l US 



V V-C V-D VI V-S 



Attention 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


Auto Duplicate/ Skip 


X 


X 




X 




X 


X 




X 










Auto Enter 


X 


X 




X 




X 






X 


X 








Cancel 






X 


X 






X 


X 








X 


X 


Character Advance 


X 


X 








X 


X 




X 


X 




X 




Character Backspace 


X 


X 








X 


X 




X 


X 




X 




Character Delete 


X 


X 








X 


X 






X 




X 




Character Insert 


X 


X 








X 


X 






X 




X 




Clear Screen 


X 


X 








X 


X 














Cursor Down 


X 


X 








X 


X 






X 




X 




Cursor Left 


X 


X 








X 


X 




X 


X 




X 




Cursor Up 


X 


X 








X 


X 




X 


X 




X 




Cursor Right 


X 


X 








X 


X 


X 






X 


X 




Duplicate 


X 


X 








X 


X 




X 


X 




X 




Edit Release 


X 


X 






X 


X 


X 




X 


X 




X 




End of Job 


X 


X 


X 


XXX 


X 


X 


X 


X 


X 


X 


X 


X 


X 


Erase Input 


X 


X 




X 




X 


X 




X 


X 




X 




Field Advance 


X 


X 








X 


X 




X 


X 




X 




Field Backspace 


X 


X 








X 


X 




X 


X 




X 




Field Correct 


















X 










Field Exit 


X 


X 








X 


X 




X 


X 




X 




Field Exit Minus 


X 


X 








X 


X 




X 


X 




X 


X 


Help 


X 


X 








X 


X 






X 




X 




Hexadecimal 


X 


X 








X 


X 




X 


X 




X 




Home (Record Backspace) 


X 


X 


X 






X 


X 


X 


X 


X 






X 


Mark Field 


X 


X 






X 


X 


X 




X 


X 




X 




New Line 


X 


X 








X 


X 






X 








Next Format 


X 


X 








X 


X 




X 


X 




X 




Page Forward 




X 








X 






X 










Print 


X 


X 






X 


X 


X 




X 


X 


X 






Record Advance 


X 


X 


X 


X 




X 


X 


X 


X 


X 




X 


X 


Record Backspace (Home) 


X 


X 


X 






X 




X 


X 


X 






X 


Record Correct 


















X 










Record Delete 


X 










X 


X 




X 










Record Display 


















X 




X 






Record Insert 












X 






X 










Record Transfer 




X 


X 






















Reset 


X 


X 






X 


X 


X 




X 


X 




X 




Review File 


X 


























Search Content 




X 








X 






X 










Search End-of-Data 




X 








X 






X 










Search Relative Record 




X 








X 






X 










Search Sequential Content 




X 








X 






X 










Select Format 


X 


X 








X 


X 




X 


X 




X 




Skip 


X 


X 








X 


X 




X 


X 




X 




System Request 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 



C-S C-T P R R-D U U-l US V V-C V-D 



V-S 



To compare the keys that are active during the execution of a data-entry 
program with keys that are active during the execution of an application 
program, see the topic Execute Mode-The Only Mode Available for Use with 
Application Programs in Chapter 2. 

Characteristics of Data-Entry Programs that Use Transaction Files 
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PROGRAM FUNCTIONS USED WITH TRANSACTION FILES 

Program functions that facilitate entry are available to transaction files. These 
functions use keywords such as AUXDUP, AUXST, CHECK(AD), and 
CHECK(AS). These functions rely upon operator controlled switches. For 
example, when the current field statement contains AUXDUP(named field), the 
named field is automatically duplicated into the current field when the Auto 
Dup function is active. These program functions provide additional keyboard 
control for the data-entry operator. 



SPECIAL JOB FUNCTIONS FOR USE WITH TRANSACTION FILES 

Two job functions can be specified for programs using transaction files by 
including the CFILE and PRTFILE keywords. Each of these functions must be 
used in conjunction with the TFILE keyword in the job specification statement. 



Manually Copying Records for Programs Using Transaction Files 

CFILE allows the operator to manually perform copy functions using the search 
and copy keys. The function provided by CFILE is not to be confused with the 
copy utility. The sample in Figure 1 -6 illustrates a program that uses the CFILE 
function. CFILE Q names the data set that is to be copied. When CFILE is 
used, the data set must be named in a file description statement Q for the 
diskette. Both data sets (the one being copied from and the one being copied 
to) must have the same record length. 



0000 1Z************ 

00002Z* PROGRAM 6. 

00003Z************ 

00004ZJ INVOICE 

00004Z 

00005Z A1INSTRUC 

00006Z A2PURHCAS 

00007Z 



00008A 

00009A 

OOOiOA 

00010A 

OOOiOA 

OOOiiA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021 A 

00022 

00023 



IE 

NE 
R 
EXMP 
INSTRUC 



K***M******ttttttfttftt***«*****tt**K*****tt**tt**KMfttf*tfff**ft 

FIGURE i-6 IN THE DE/RPG USER'S GUIDE * n 

*************************************************** II 

TFILE(INTERBIL) CFILE(CUS+ 

TMAST) 
A2 WRITE <*N0> 
Ai SLN0<3) 
A2 
80 DEVICE(CRT) DSPSIZ<6 80) 

0002001' FIND THE CUSTMAST RECORD THAT MATC+ 
HES THE ORDER. USE CUSTMAS DATA SE+ 
T. ' 
1 lOOiOOiCHECK(FE) PMT(USE THE FIELD EXIT KE+ 
Y TO CONTINUE) 

1 I001001INSERT< 'T' ) 
0002001' ITEM' 
'PRICE' 
' QUANT ' 



R PURHCAS 



INTERBIL 
CUSTMAST 



6 

5 

4 

80 

80 



0003001 

0004001 

1002010 

2100301.0 

01.004010 



DEVICE<DISK 
DEVICE<DISK 



4000 
4000 



Figure 1-6. A Program Illustrating the Use of the Copy Function 



2? 



r 



In order to use the copy-related keys, the program must be in the enter mode; 
that is, the operator must have selected option 1 Enter-NEW/REPLACE or 5 
Enter-ADD from the mode selection menu. Copy-related keys are keys that 
are operational when the copy function is in effect. The copy- related keys are 
Review Second Data Set, Transfer Record, and Return to Transaction Data Set. 

Once in an enter mode, the operator initiates the manual copy function by 
using the Review Second Data Set key. The process involved in manually 
copying records using the copy keys is given in the following list. 

Note: The search keys can also be used to identify the desired record to be 
copied. The IBM 5280 Operator's Guide contains a detailed description of the 
available operations for the copy mode. 

1 . After the operator has pressed the Review Second Data Set key, a 
display appears requesting the name of the data set from which to copy 
records. Using the sample in Figure 1 -6 as an example, the operator 
enters CUSTMAST. 

2. The records (starting with the first one in the named data set) are shown 
using display format 0. For example, the first record in the CUSTMAST 
data set might appear as follows: 



000i A 40 » 

MR. D.B. MACRATH1355 NORTHEMBASSY ROW, WILHELM , MASS889010 



I J 

If this is the record the operator wants to copy, he can change any data 
on the record before copying it. When changes are made, the updates 
and changes do not appear on the original record (in the data set being 
copied from); the updated data only appears in the copied record. 
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3. By pressing the Transfer Record key, the record is copied into the 
receiving data set. The data set is extended to accept the copied record. 

4. The next sequentially encountered record in the data set being copied 
from is displayed. If the operator does not want the record copied, he 
presses the Enter key to display the next record in the data set. When 
the operator wants to terminate the manual copy operation, he presses 
the Return to Transaction Data Set key and the program returns to the 
enter mode. 

The normal operation of the program resumes. The next format is 
automatically displayed and processing continues. The sample in Figure 1 -7 
illustrates the data set that might result from using the sample in Figure 1 -6. 




CUSTMAStX PURHCASX CUSTMAsA PURHCASXcUSTMAsA PURHCASX 



Figure 1-7. Data Set Resulting from Using the Program in Figure 1-6. 

This process is not necessarily the most desirable way to merge records from 
two different data sets. It is simply an available technique for programs using 
transaction files. Consider the impact this function has on the review operating 
modes. For example, unless the record being copied and the records in the 
receiving data set have the same display format, the operator has difficulty 
recognizing which record type is being displayed. Formatting techniques for 
overcoming this situation are described in Part 2. 
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HOW THE USAGE COLUMN ENTRIES AFFECT PROGRAMS USING 
TRANSACTION FILES 

The usage entry is in column 38 on the A-specification. Its purpose is to specify 
how fields are to be processed. Four entries are possible in this column for 
programs using transaction files: I for input, for output, B for both input and 
output, and W for work space. 

Fields designated as I in the enter mode initially display as blanks until the 
operator enters data. In the update mode, the existing data is displayed and 
the operator is allowed to alter the data. In the verify mode, the field is initially 
blank until the operator enters the verify data; then, the characters are 
displayed and any errors (mismatches) are indicated. All input fields are 
included in records written to the diskette data set. 

Fields designated as can be used for literal messages and are to be excluded 
from the diskette data set. Literals are displayed immediately in all modes. All 
output fields are excluded from records that are written in the diskette data 
set. 

Fields designated as B are treated as input fields except during execute mode. 
During execute mode, the initial valve of the field is displayed at the start of the 
format. The operator may change the data in a key-entered field or accept the 
data as displayed. All fields described as input and output (B in the Usage column) 
must be named. 

Fields designated as W are neither displayed nor included in the diskette data 
set. This type of field is normally used to hold intermediate calculation results 
or to declare a variable to be used in another operation. 

This completes the description of the characteristics of data-entry programs 
using transaction files. The next chapter describes the characteristics of 
application programs. 



fhnrsc+or'.ct'^ip j^f 
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Chapter 2. Characteristics of Application Programs that Use Subroutines on the 
C-Specifications 



In general, application programs that use subroutines on the C-specifications do not 
use transaction files. The path this type of program takes is much different from 
that taken by programs that use transaction files. All input/output operations are 
controlled by the programmer; no default display or diskette operations are 
available. The sample in Figure 2-1 indicates the steps involved in using a simple 
application program. 
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OOOOiZ*** 

00002Z* P 

00003Z*** 

OOOMJ 

OOOC"" Ai 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024C 

00025C 

00026C 

00027C 

00028C 

00029C 



******* 

ROGRAM 

******* 

SAMPLEi 

SUBCON 



***************************************************** 
7. FIGURE 2-i IN THE DE/RPG USER'S GUIDE 
***************************************************** 



DD 



IE 
F INPUT 
R BEG 

FLDi 

FLD2 

FLD3 
R ENDING 

FLD4 

FLD5 

FLD6 
F EXDATAST 
R BEGIN 

FLD2 

FLD3 

FLDi 
R END 

FLD6 

FLD4 

FLD5 
SUBCON 



37 

i 

30 

6 

i 

6 

9 

37 



I 
I 

I 

I 
21 
2.1 



BEGSR R 

exfmtbeg™] 
exfmtending 1 
writebegin | 
uriteendBI 

ENDSR 



Ai 

DEVICE(CRT) DSPSIZ<£ 80) 

INSERT< ' B' ) 

PMT( CUSTOMER NAME) 

PMT< NUMBER) 

INSERT ( 'E' ) 
PMT( PAYMENT) 

PMT(OUTSTANDING BALANCE) 
DEVICE<DISK X'4000' ) 



i 
31 
37 



Storage 



C 
A 

Z 




Diskette Data Set 



Program Using a Subroutine 

Figure 2-1 (Part 1 of 2). Characteristics of an Application Program 
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1 . Call the subroutine.^ 

2. Define the subroutine.^ 

3. Execute the format for the display to the first record, fl This record must 
be defined on the A-specification. Q 

4. Execute the format for the display of the next record. Q This record must 
be defined on the A-specification. Q 

5. Write the first record in the diskette data set.Q The data set name is 
defined by the name on the file description line for the diskette on the A- 
specification.Q The description of the record follows the data set name. 

6. Write the next record in the diskette data set.Q The description of the 
record follows the data set.(Q 

7. The program is complete. The preceding cycle is continued until the 
operator uses the End of Job key. 

Note: The operator cannot use the verify or update mode with this program. 
If the operator wants to update a record, more code must be added to this 
program or another program must be used. 

Figure 2-1 (Part 2 of 2). Characteristics of an Application Program 
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The characteristics of an application program controlled through subroutines 
are: 

• Display sequence and diskette data set formatting is totally controlled by the 
subroutines. Part 2 contains detailed information about this topic. 

• Data-entry functions, including key- initiated modes (such as search) are not 
available. The only available mode of operation is the execute mode. 

• A variety of methods for accessing existing data sets is available. Part 4 
contains detailed information about this topic. 

• Formatted printing is available. Chapter 14 contains detailed information 
about this topic. 

• A variety of ways of arranging data on diskette is available. Records can be 
organized by key fields, and data sets can be indexed or sequential. 

• Data set update must be controlled from the subroutine. 

• All input/output control for the display, diskette, printer, and 
communications is controlled by subroutines on the C-specifications. 

• Programs can operate without operator interaction. 



30 



EXECUTE MODE-THE ONLY MODE AVAILABLE FOR USE WITH 
APPLICATION PROGRAMS 



Execute mode is automatically selected whenever the program calls a subroutine 
that includes an EXFMT statement on the C-specification. This mode inhibits 
automatic functions provided by the data-entry operating modes and programmed 
keyboard functions. 

During execute mode and whenever an EXFMT is performed from the subroutine 
:o a format described on the A-specification, the following function keys are active 
in the application program: 



Attention 

Character Advance 

Character Delete 

Duplicate 

(Works only with AUXDUP) 

Erase Input 

Field Correct 

Field Exit Minus 

Hexadecimal 

System Request 



• Auto Enter 

• Character Backspace 

• Character Insert 

• Edit Release 

• Field Advance 

• Field Exit 
. Help 

• Record Advance 
. Skip 
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ORGANIZING DATA IN DATA SETS USING A BACKGROUND PROGRAM 

The formatting characteristics of data sets that use subroutines on the C- 
specifications are described in detail in Part 2. Specifically, the two subjects 
described in Part 2 are: (1) using application programs to create data sets 
containing key fields and (2) using application programs to create indexed data 
sets. 

A key field is a specially designated field that can be used to organize data on 
the diskette in sequence according to the value of the key field or to 
automatically identify the correct record (by key field) in a data set during a 
read operation from a subroutine. Part 4 contains information about using key 
fields. Any field that satisfies the following requirements can be a key field: 

1 . The field must exist in a data set on the diskette. 

2. The values of the fields designated as keys must be in an ascending 
order within the data set unless an index data set is used. 

The sample in Figure 2-2 illustrates a program that creates a data set with key 
fields. 
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OOOOiZ** 

00002Z* 

O0003Z** 

00004ZJ 

00005Z V1HELLO 

00006A 

00007A 

00008A 

00009A 

OOOIOA 

OOOiiA 

00012A 

00013A I 

00014A 

00015A 

00016C 

00017C 

00018C 

00019C 

00020C 

00021C 

00022C 

00023C 

00024 

00025 

00026 

00027 

00028 



PROGRAM 8. FIGURE 2-2 IN THE DE/RPG USER'S GUIDE * 

****tttttt******«tttttt*«*tt**tf*tt*tf***tf«tttttttt**fttt****«M«tf***tffttt«*»*ft* 

MASTNAME 



IE 
F INVTEMP 
R ITEMINV 
ITEM* 
PRICE 
ONHAND 
F INVMAST 
R ITMAS 
K ITEM* 
PRICE 
ONHAND 
HELLO 
NOW 



NOi 
NOi 



N03 



15 

6 

5 

4 

15 

6 

5 

4 
BEGSR 
TAG 

| READ ITEMINV 
WRITEITMASRl 
GOTO NOU ■■ 
ENDSR 



EOJ 
DEVICE<DISK X'4000') 



DEVICE(DISK X'4000' ) 



01 
03 




\ 349867 . . . \ 188856 . . . \ 998760 . . . \ 



689546 . . . . \ 349867 




188856 



...\349867 . ..\ 689546... \ 998760... \ 



Figure 2-2. A Program that Creates a Data Set with Key Fields 

Notice that the key field has a K in the name type column Q. The program in 
Figure 2-2 makes each item number field in the data set a key field. The 
program reads each record Q from the original data set Q and determines 
where to place it in the new data set Q according to its key value. Each time 
the program reads a new key field, the records (following the new record) must 
be rewritten to reorder the records according to their key values. The result is 
a data set that contains records ordered by their key fields Q. 

This process takes time, however, because records must be rewritten with the 
entry of each new key field. By using an index file along with the key field, 
you can avoid rewriting all the records after each entry. The sample in Figure 
2-3 illustrates a program that uses an index. 
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OOOOiZ* 

00002Z* 

00003Z* 

00004ZJ 

00005Z Vi HELLO 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

OOO i2A 

00013A 

00014A 

00015A 

00016C 

00017C 

00018C 

00019C 

00020C 

00021C 

00022C 

00023C 

00024C 

00025C 



*************** ********** *****«*******»**************#**#*#«*# 

PROGRAM 9. FIGURE 2-3 IN THE DE/RPG USER'S GUIDE * 

MASTMAKE 



iE 
INV 

ITEMINV 
ITEM* 
PRICE 
ONHAND 
INVMAST 
ITMAST 
ITEM* 
PRICE 
ONHAND 

HELLO 

NOW 



NOi 
N01N02N03 



16 

6 

5 

5 

16 

6 

5 

5 
BEGSR 
TAG 

READ ITEMING 
WRITEITMAST 
GOTO NOW 
ENDSR 



EOJ 
DEVICE<DISK Di) 



DEVICE<DISK Dl) INDEX(HOLD) 



01 
0203 




689546 



349867 . . . A 188856 



. . . \ 998760 . . . \ 




5 



188856/3 \ 349867/2 \ 689546/1 \ 998760/4 



\ 998760/4 \ 




689546 



349867 \ 188856 



998760 



Figure 2-3. A Program that Uses an Index Data Set 
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Notice that a new piece of code is required: the INDEX keyword and its 
parameter Q. When you use the index function with a key field, records are 
written in the data set exactly as they are entered, but they can be accessed as 
if they were entered in key sequence. This is accomplished by the index file 
Q which holds the key fields (in sequence) and their relative record location in 
the resulting data set Q. 

Key fields and indexed data sets are only available for programs that use 
subroutines to create data sets or for the Sort/ Merge Program Product. 



CONTROLLING DATA SET UPDATE THROUGH SUBROUTINES 

The UPDAT statement in a subroutine is the only way a data set can be 
updated as it is created by an application program. The sample in Figure 2-4 
illustrates an update operation. 
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OOOOiZ«******************M*******«**«**#tt*tt*»tt**tt*tt***«*****«*«*»«« 


00002Z* 


PROGRAM 


10. FIGURE 


2-4 IN THE DE/RPG USER'S GUIDE 


00003Z***** ******************************************************** 


00004ZJ 


UPDATMAS 










00005Z 


YiGOFIRS 




IE 






EOJ 


00006A 




F 


INPUT 




65 


DEVICE(CRT) DSPSIZC6 80) 


00007A 




R 


CHANGE 








00008A 













1 i' CUSTOMER NAME' 


00009A 













2 i' ADDRESS' 


OOOiOA 













3 i' CUSTOMER*' 


OOOiiA 






CUSTNA 




30 B 


i 20 


00012A 






ADDR 




30 B 


2 20 


00013A 






CUSNUM 




5 B 


3 20 


00014A 




F 


CUSMAST 




65 


DEVICE(DISK Di) 


00015A 




R 


HEAD 








00016A 






CUSTNA 




30 




00017A 






ADDR 




30 




00018A 






CUSNUM 




5 




00019C 






BOFIRS 


BEGSR 




00020C 






LOOP 


TAG 


headD 




00021C 








READ 


B 


00022C 


N05 






EXFMTCHANGE 


00023C 


N05 






updatheadQ 




00024C 


N05 






GOTO 


LOOP 




00025C 








ENDSR 






M. R. DEHAN . . . P.O BOX 150, NY, NY X178A 



\ 



OOOi A 40 

CUSTOMER NAME M. R. DEHAN 

ADDRESS 5592 SO. FERRY, GRAND RAPIDS, MICH 

CUSTOMER* X178A 



I 




J 




M. R. DEHAN . . . 5592 SO. FERRY 



.. X178A\ 



Figure 2-4. An Application Program that Includes an Update Operation 
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Notice that the record that is to be updated must first be read from its data 
set Q. Next, the record must be written to the display Q so the operator can 
see its contents. All fields that are to be changed in the record must be fields 
that are described with either a B (both) or I (input) usage entry. The update 
operation Q must be described in the subroutine to cause the operator's 
changes Q. 

Programs that use subroutines do not have automatic verify or rerun 
capabilities. These capabilities can be provided by program operations that 
compare entries and set indicators. See Part 3 for a description of using 
indicators. 



CONTROLLING THE INPUT/OUTPUT DEVICES 

All input/output devices (display, diskette, printer, and communications) must 
be specifically controlled from the subroutine. Control for the printer is 
described in Chapter 14. 



Controlling the Display 

There are two ways to display data: (1 ) reference it through an entry format on 
the Z-specification and (2) specify it through an EXFMT or WRITE operation in 
the subroutine. If the program is exclusively a background program (does not 
require any interaction), the first method is not available. 

The EXFMT operation in an interactive application program allows you to 
display fields and allows the operator to change the fields. All usage entries (I, 
0, W, and B) are valid. The WRITE operation allows you only to display the 
fields; it does not allow the operator to change them. Only the output (0) 
usage entry is allowed. 

The samples in Figure 2-5 illustrate these techniques. 
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OOOOiZ********** 
00002Z* PROGRAM 
00003Z********** 
00004ZJ EMPBACK 



Sample A 

ii. FIGURE 2-5 IN THE DE/RPG USER'S GUIDE * 

«ft»««*tf**ttttft*tt*»tfttWttWft«»*tt«««««*«ftff*«»tf«tt*«ffftMtt««***tt 



00005Z 


A2AT 




IE 






00006A 




_ _F 


LOOK 




95 


00007A 




Qr 


DISP 






00008A 













00009A 










i I 


OOOiOA 




F 


TEMPITM 




95 


OOOliA 




R 


ITTRANS 






00012A 






ITEM* 




6 


00013A 






DESC 




80 


00014A 






COST 




9 


00015A 




F 


MASTITEM 




95 


00016A 




R 


ITMMAS 






00017A 




K 


ITEM* 




6 


00018A 






DESC 




80 


00019A 






COST 




9 


00020C 




( 


*T 


BEGSR 


0002J.C 




1 


3RANCH 


TAG 




00022C 








READ 


ITTRANS 


00023C 


N05 




D 


URITEITMMAS 


00024C 


N05 


NOi 




GOTO 


BRANCH 


00025C 




05 


a 


EXFMTDISP 


00026C 






ENDSR 


00027 













EOJ 
DEVICE(CRT) DSPSIZ(6 80) 

'THE PROGRAM IS DONE' 

CHECK (FE) 

DEVICE (DISK X'4000' ) 



DEVICECDISK X'4000' ) 



05 
Oi 



OOOOiZ** 

00002Z* 

00003Z** 

00004ZJ 

00005Z LiMIX 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

000i2A 

000i3A 

00014A 

000i5A 

00016A 

000i7A 

000i8A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A 

00027A 

00028C 

00029C 

00030C 

0003iC 

00032C 

00033C 

00034C 

00035C 

00036C 

00037C 

00038C 



Sample B 

PROGRAM i2. FIGURE 2-5 IN THE DE/RPG USER'S GUIDE 
PUTTOGET 



Oi 



02 



N03 



iE 
F TEMP 
R ITEMING 
K CUSTN 

ITEM* 

PRICE 

AMT 
F MERGE 
R CUSTMAS 

CUSNAM 

ADDR 

CUST* 
F BILLTOT 
R BILL 

CUSNAM 

ADDR 

CUST* 

ITEM* 

PRICE 

AMT 
F INPUT 
R MSG 

MIX D 

BRANCH 
CUST* 



END 



4 
6 
5 
6 
65 

30 

30 

4 

82 

30 
30 

4 

6 

5 

6 

i 


BEGSR 
WRITEMSG 
TAG 

READ CUSTMAS 
GOTO END 
CHAINITEMINV 
GOTO BRANCH 
WRITEBILL 
GOTO BRANCH 
TAG 
ENDSR 



EOJ 
DEVICE(DISK Di) INDEX(KEEP) 



DEVICE(DISK Di) 



DEVICE<DISK Di) 



DEVICE(CRT) DSPSIZ(6 80) 

'BE PATIENT. I AM READING RECORDS 



Oi 



03 



Figure 2-5. Programs that Control the Display 
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In Sample A, the program executes the format named DISP Q on the display 
when all records have been read from the data set. The content of this record 
cannot be altered by the operator. When the last record is read Q, an 
indicator is turned on Q. The last record is written in the new data set Q, 
and the DISP format is displayed Q. 

In Sample B, the program writes a message on the display while the program 
is being executed. 

Part 3 contains detailed information about using indicators. 
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Controlling the Diskette 

All diskette operations must be controlled from the subroutines. Operations 
that read data from diskette and write data to diskette are available. There are 
basically two ways of reading data from diskette: (1) sequentially (READ) or 
(2) directly (CHAIN). Information about writing on diskette has been provided 
earlier in this chapter and is also described in Part 2. Part 4 describes 
additional details about reading from a diskette. The sample in Figure 2-6 
illustrates the coding that controls diskette operations in subroutines. 

OOOOiZ************** *********************************** ************** 
00002Z* PROGRAM 13. FIGURE 2-6 IN THE DE/RPG USER'S GUIDE 
00003Z******** ********************************************* ********** 
00004ZJ PUTTOGET 



00005Z 


LiMIX 


IE 










EOJ 




00006A 


F 


TEMP 




22 






DEVICE (DISK Di) INDEX' 


IKEEP) 


00007A 


R 


ITEMINV 














00008A 


K 


CUSTN 




4 






I 




00009A 




ITEM* 




6 










00010A 




PRICE 




5 










OOOiiA 




AMT 




6 










00012A 


F 


MERGE 




65 






DEVICE(DISK Di) 




00013A 


R 


CUSTMAS 














00014A 




CUSNAM 




30 










00015A 




ADDR 




30 










00016A 




CUST* 




4 










00017A 


F 


BILLTOT 




82 






DEVICE(DISK Di) 




00018A 


R 


BILL 














00019A 




CUSNAM 




30 










00020A 




ADDR 




30 










00021A 


a 


CUST* 




4 










00022A 


ITEM* 




6 










00023A 




PRICE 




5 










00024A 




AMT 




6 










00025C 




MIX 


BEGSR 










0002AC 




BRANCH 


TAG 






a 






00027C 


B 




READ 


CUSTMAS 


Oi 




00028C 


CUST* 


CHAINITEMINV 


a 


02 




00029C 




a 


lURITEBILL 




03 




00030C 


N01N02N03 




GOTO 


BRAN 








00031C 






ENDSR 











Figure 2-6 (Part 1 of 2). A Program that Controls the Diskette 
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8979 



)j 6500 Ji 1345 )) 4598 ) 





4598 



I 



6500 



SE 



JJ8979 




8979 



I 



6500 



I 



... 1 345 



Figure 2-6 (Part 2 of 2). A Program that Controls the Diskette 

The initial organization of the data set determines the type of read operation 
that can be used. For example, the READ operation can be performed against 
all types of data sets. The CHAIN by key field operation, however, can be 
performed only against data sets organized in ascending key sequence or 
against indexed data sets. 

In the sample, the first operation in the subroutine sequentially reads Q 
records from a data set one at a time. The second operation uses a field R 
from the first record (as a reference for the key field in the second data set Q 
to determine which record in the second data set is to be read. 

The third operation writes Q a new record in the new data set Q. This new 
record contains fields from the two previous records. The DE/RPG 
Reference Manual contains details about the restrictions placed on using the 
READ and CHAIN operations. 
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Accessing Communications 

DE/RPG accesses communications through a communications file statement 
description. The sample in Figure 2-7 illustrates a program that uses 
communications. 

00001Z*********************************»**»************************** 
00002Z* PROGRAM 14. FIGURE 2-7 IN THE DE/RPG USER'S GUIDE * 

00003Z********** ************************ ***************************** 
00004ZJ COMEXP 



00005Z 


Z1SUBEX 


IE 






EOJ 


00006A 


F 


ITFILE 




45 


DEVICE<DISK Dl) 


00007A 


R 


ITEMTRAN 








00008A 




ITEM* 




6 




00009A 




COST 




9 




00010A 




NUMSOD 




15 




OOOiiA 




ONHAND 




15 


■M 


00012A 


F 


ITEMUP 




45 


DEVICE(COMM>U 


00013A 


R 


ITINVEN 








00014A 




ITEM* 




6 




00015A 




COST 




9 




00016A 




NUMSOD 




15 




00017A 




ONHAND 




15 




00018C 




SUBEX _ 

B 


BEGSR 




00019C 




OPEN 


ITEMUP 




00020C 


1 


»ERE Q 


TAG 






00021C 




READ 


ITEMTRAN 


05 


00022C 


N05 


a 


WRITEITINVEN 




O0023C 


N05 


GOTO 


HERE 




00024C 




B 


CLOSEITEMUP 




00025C 




ENDSR 





Figure 2-7. A Program that Uses Communications 

Communications control is provided through the use of a communications access 
method which is part of the Communications Utilities Program Product. The 
COMM or COMM3270 device keyword Q allows you to specify that the program 
is to use communications facilities. To use a data set with communications, you 
must first open the file Q and then close Q it when you are through. Open and 
close operations for all other input/output devices are automatically provided by 
DE/RPG. 

This program is reading a record from an existing data set Q. It is then 
sending the contents of the record Q over the communications network to the 
host system. Each record in the data set is read. When the end of the data 
set is reached, an indicator is turned on Q and the file is closed. Section 3 
contains additional information about using indicators. 

The IBM 5280 Communications Utilities Reference Manual, SC34-0247, contains 
detailed information about the communications support provided by the IBM 5280. 

The IBM 5280-3270 Emulation Reference Manual, SC34-0384, contains detailed 
information about the IBM 3270 Emulation. 
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COMBINING DATA-ENTRY AND BACKGROUND PROGRAMS 

DE/RPG is extremely flexible. The choice of program type is yours. Two 
considerations should guide your choice of program type: (1) the requirement 
for operator involvement and (2) the desired data set organization. 

Often, a combination of the two basic program types is desirable. The sample 
in Figure 2-8 illustrates a combination program. 



OOOOiZ** 

00002Z* 

00003Z** 

00004ZJ 

00005Z X 

00006Z X 

00007A 

00008A 

00009A 

00010A 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A 

00027A 

00028A 

00029C 

00030C 

00031C 



******************* 

PROGRAM 15. FIGURE 

******************* 

COMBINA 



iFIND 
2T0GETH 



IE 

IE 
GET 
FIND 



El NUMBER 
R TOGETH 



CUSTN 

ADRES 

ITEMN 

PRICE 
F BILLMST 
|R BILL 

ITEMN 

PRICE 

CUSTN 

ADRES 
F CUSMAST 
R LOOKSE 

CUSNA 

ADDR 
K NUMBER 
GOGET _ 
NUMBER I 



2-8 IN THE DE/RPG USER'S GUIDE * 
a***************************************** 

TFILE<BILLMST)H 
X2 WRITE(*NO) _^ 
XI URITE(BILL)Q| 
75 DEVICE(CRT) DSPSIZ(6 80) 

0002001' CUSTOMER NUMBER" 
5 I002017CHECMDR) EXSR(GOGET) 



30 

30 

6 

6 

75 



65 

30 
30 



0001001' CUSTOMER NAME' 

0002001 'ADDRESS' 

I001017INSERT(CUSNA) 

I002017INSERT<ADDR) 
0I003001PMT(ENTER ITEM NUMBER) 
2I00400iPMT(ENTER COST) 
DEVICE(DISK Dl) 



DEVICE<DISK Di) 



BEGSR 

ICHAINLOOKSE 
ENDSR 



0102 



Figure 2-8 (Part 1 of 2). A Program that Combines Data-Entry and Application 
Program Types 
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0001 A 40 E| 
CUSTOMER NUMBER 100-A 



I 



J 




079-A1 



I 



. 090-B2 



3 ,0OA2 $ 



100-A2S) 120-A2 



J 



y 



I 



OOOi A 40 

CUSTOMER NAME D. W- WINTER- 
ADDRESS RR2, MAZEPA, MN. 
0AAA12 
000356 



J 




100-A2 . 



J 



Figure 2-8 (Part 2 of 2). A Program that Combines Data-Entry and Application 
Program Types 
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In Figure 2-8, the program is basically a data-entry program that uses a 
transaction file Q. The program is using a subroutine to select the correct 
record from another data set and appropriate data from it. 

In the program, the operator is being prompted for a customer number Q. 
DE/RPG then uses this number to find the correct record in an existing data 
set Q. It inserts the data into a display record. Next, the operator is 
prompted for information about the transaction Q. When this format is 
complete, a reformatted record Q is written in the transaction data set. 

The program has all the advantages of a data-entry program and it has the 
additional advantage of automatically supplying information from a master data 
set which is typically available only with application programs. 

This concludes the topic describing the program types available with DE/RPG. 
Part 2 describes formatting characteristics of both program types. 
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Part 2. Formatting Data for Displays and Diskettes 



This part of the manual contains information about controlling the sequence of 
formats and about the contents of the formats. It consists of four chapters: 

• Chapter 3. Controlling Display and Diskette Formats Via the Z- 
Specifications 

• Chapter 4. Controlling Display and Diskette Formats Via the C- 
Specifications 

• Chapter 5. Formatting Techniques for the Display 

• Chapter 6. Formatting Techniques for the Diskette Data Set 

Formatting is organizing data for an I/O device such as the display, diskette, or 
printer. This part of the manual describes format specifications and 
descriptions for the displays and diskettes. Part 6 describes format 
specifications and descriptions for the printer. To understand the relationships 
of display and diskette formats, read the entire four chapters in this part. 

In DE/RPG, format control is through the statement types on the Z- and A- 
specifications or through operations on C-specif ications. The format statements 
(both entry and review) on the Z-specification and the operations (EXFMT, 
WRITE, READ, and CHAIN) on the C-specification control the use of the formats. 
Specifically, statements on the Z-specification and operations on the C-specification 
determine whether or not the formats described on the A-specification are displayed, 
written in the diskette data set, printed, or copied. The record statements on the 
A-specification describe the contents of the display and diskette formats. 
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Chapter 3. Controlling Display and Diskette Formats via the Z-Specifications 



All display formats for this type of data set must be specified in format statements 
on the Z-specification and described in record statements on the A-specification. 
An entry format statement must be included to automatically display the format in 
the enter mode. A review format statement must be included to automatically 
display the format in the verify, rerun, and update modes. Manual format selection 
with the Sel Fmt key is always available with transaction files. 



This chapter contains descriptions for specifying: 

• A single entry format 

• Two entry formats that are chained (automatically follow one another in the 
selection) 

• The entry format based on a field test of data in the previous record 

• An entry format controlled by the Next Fmt key 
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SAMPLES SHOWING VARIOUS TYPES OF ENTRY FORMAT SPECIFICATIONS 

The simplest specification for an entry mode display format is shown in the 
following sample in Figure 3-1. There is one format (named IDENT with the ID 
AO). The format is used once Q. Because the next format ID field is blank 
W. the format does not automatically advance. 



0000 1Z ********************************************** ***************** 

00002Z* PROGRAM 16. FIGURE 3-i IN THE DE/RPG USER'S GUIDE * 

00003Z****************************** ********************************* 

00004ZJ INQUIRE __ _. 

00005Z AOIDENT QiE EJ 

00006A F INPUT 36 

00007A R IDENT 

00008A FLDi 30X I 

00009A FLD2 6D I 

OOOiOA F LOOK 36 



TFILE(LOOK) 
DEVICE(CRT) DSPSIZ<6 80) 



PMT( ENTER CUSTOMER'S NAME) 

PMT< ENTER CUSTOMER ID) CHECK (DR) 

DEMICE<DISK Di ) 



t 



0001 A 40 

ENTER THE CUSTOMER'S NAME 



J 



I 



OOOi A 40 

ENTER THE CUSTOMER ID 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. 



J 



Figure 3-1 . A Sample Program with Simple Format Selection 



50 



The sample in Figure 3-2 shows a slightly more complex use of specifying 
display formats. As illustrated by this sample, the format named I DENT with 
format ID AO is used first Q. It is used once, and then the next format Q is 
displayed. The next format Q is named MENU and has the ID A1. This 
format is also used once. When the record for the format is complete and has 
been advanced, the format named IDENT with ID AO is automatically displayed 
Q. The operator can stop this process by using the End of Job key to 
terminate the job. 



0000 1Z***************** 


00002Z* PROGRAM 


17- FH 


00003Z***************** 


00004Z***************** 


00005j^J INQUIRE 




OOOOMAOIDENT 




IE 


OOOOKlAiMENU 

ooooSrf 




IE 


F 


INPUT 


00009A 


R 


IDENT 


00010A 




FLDi 


OOOiiA 




FLD2 


00012A 






00013A 


R 


MENU 


00014A 






0O015A 






00016A 




FLD3 


00017A 


F 


LOOK 



WW******************************************** 
GURE 3-2 IN THE DE/RPG USER'S GUIDE * 

******************** WW****** *********** WW***** 
***************************************************** 

_- TFILE(LOOK) 
AlB 

AOgj SLN0<3) 
36 DE~E(CRT) DSPSIZ<6 80) 

30X I PMT< ENTER THE CUSTOMER'S NAME) 
6D I PMT( ENTER CUSTOMER ID) 
CHECK (DR) 

OOOiOOl'i ENTER ITEM* AND PRICE DATA' 
0002001' 2 ENTER SHIPTO DATA' 
1 I003001PMT<SELECT A NUMBER) 
36 DEVICE(DISK Dl) 



Figure 3-2 (Part 1 of 2). A Sample Program with Complex Format Selection 



Controlling Display and Diskette Formats via the Z-Specifications 51 



OOOi A 40 

ENTER THE CUSTOMER'S NAME 



I 



J 



OOOi A 40 
ENTER THE CUSTOMER ID 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX . 



I 



J 



SELECT A NUMBER 

i ENTER ITEM* AND PRICE DATA 
2 ENTER SHIPTO DATA 



I 




J 



FLD1 FLD2 



ff ^FLDI FLD2J (7^( 



FLD1 FLD2 FLD3 



J 



Figure 3-2 (Part 2 of 2). A Sample Program with Complex Format Selection 
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A more complex format selection is shown in Figure 3-3. The format selection 
is based on a test performed against a specified position in the previous 
record. Look at the sample that follows. The first format is IDENT with a 
format ID of AO; the second format is MENU. Notice that the selection of the 
next format (either ITEMINF or SHIPINF) is based upon the presence of a 1 or 
2 in position 1 Q of the MENU record. 

If a 1 is in position 1 of the MENU record, the format named ITEMINF is 
selected. The N Q in the repeat field for the ITEMINF format statement 
means that the format will continue to be displayed until the operator selects 
another format. If the operator uses the next format function, the IDENT 
format with ID AO is automatically selected. If a 2 is in position 1 of the 
MENU record, the format named SHIPINF is selected. The 1 in the Repeat 
field for the SHIPINF format statement means that the format is used only 
once. The next format that is automatically selected is IDENT with ID AO. 



00001Z********** 

00002Z* PROGRAM 

O0003Z***tf ****** 

00004ZJ INQUIRE 

00005Z AOIDENT 

00006Z AiMENU 

00007Z 

00008Z A2ITEMINF 

00009Z A3SHIPINF 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

0002AA 

00027A 



************#***#*** 
18. FIGURE 3-3 I 

******************** 



IE 

IE *P0S000i(| 'i' 
_ E *P0S000i M '2' 

|ne 

IE 

F INPUT Ai 

R IDENT 

FLDi 30X I 

FLD2 6D I 

R MENU 



FLD3 

ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

SHIPINF 

FLD8 

FLD9 

FLDiO 

LOOK 



********************************* 
N THE DE/RPG USER'S GUIDE * 
********************************* 
TFILE(LOOK) 

Ai 

A2 SLN0<3) 

A3 

AO 

AO 

DEVICE(CRT) DSPSIZ<6 80) 



PMT( ENTER THE CUSTOMER'S NAME) 

PMT< ENTER THE CUSTOMER ID) CHECK (DR) 



6 


I 


5 


21 


3 


01 


i 


I 


30X 


I 


30 


I 


i 


I 


61 





OOOiOOi'i ENTER ITEM* AND PRICE DATA' 
0002001*2 ENTER SHIPTO DATA' 
I003001PMT<SELECT A NUMBER) CHECK(DR) 

PMT( ENTER ITEM*) 
PMT(ENTER PRICE) 
PMT(ENTER QUANTITY) 
INSERT ( ' I' ) 

PMT( ENTER NAME) 
PMT( ENTER ADDRESS) 
INSERT ( 'S' ) 
DEVICE(DISK Di) 




FLD4 FLD5 FLD6 FLD7\\ FLD4 FLD5 FLD6 



I 



J 



Figure 3-3. A Sample Program Showing the Use of a Simple Test to Select the Entry Format 

These samples illustrate a variety of ways to specify display entry formats. The 
following text describes ways to use review format specifications. 
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SAMPLES SHOWING VARIOUS TYPES OF REVIEW FORMAT 
SPECIFICATIONS 

A review format is not required; if you use a review format, the simplest way 
to specify the review format is to simply include a review statement with no 
test position or character to test column entries. The sample in Figure 3-4 
shows you how to do this. When you do not include a test position, you are 
not controlling the format that is used for review purposes. The first format is 
always selected in this sample. Whether or not the data being reviewed fits 
the format that is specified is not considered by DE/RPG. If a field is not long 
enough for the data, the data is simply truncated. Only the leftmost positions 
(as many as fit in the review format field) remain. Also, DE/RPG only takes 
the first ID specified. Any format IDs included in the next format columns after 
the first untested ID are never used. Therefore, it is always a good coding 
habit to include a test position and character to test entry in the records that 
are written in the diskette data set. Because the test position Q in the review 
statement is blank, format ID AO Q is selected regardless of the record type 
that is being reviewed. If the I DENT record was the last record written, then 
the I DENT record is reviewed in the I DENT format. DE/RPG does not advance 
to the next review statement; it continues to use format AO for all records that 
are read. Therefore, if the next record that is read is a MENU record, it is read 
with an IDENT format. Although this process would cause no problems in this 
sample program because the first field of the IDENT format is longer than the 
only field for the MENU record, it is still an improper coding practice. 



00001 Z**********************w«*********************«**********k****** 
00002Z* PROGRAM 19. FIGURE 3-4 IN THE DE/RPG USER'S GUIDE * 

00003Z******K****ft******fctt**ft*tfMK*ttttttM*ft*****Kftff****ftft«***««Mftft«ft«*** 

TFILE(LOOK) 
Ai 

aoQ 

Ai 
5 DEVICE(CRT) DSPSIZ<6 80) 

i I INSERT CI') 
i I INSERTC2') 

'THIS IS FORMAT IDENT' 

'THIS IS THE MENU FORMAT' 
5 DEVICE(DISK Di) 



00004ZJ 


! INQUIRE 




00005Z 


AOIDENT 




IE 


00006Z 


A1MENU 




IE 


00007Z 






R 


00008Z 






R 


00009A 




F 


PRE 


00010A 




R 


IDENT 


OOOiiA 






FLDi 


0001ZA 






FLD2 


00013A 








00014A 




R 


MENU 


00015A 








OOOi&A 




F 


LOOK 


00017 









Figure 3-4. A Sample Program Showing the Invalid Use of Multiple Review Formats 
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A good way to code a review statement is shown in the next sample. This 
sample demonstrates the use of the test position and character to test columns 
on the Z-specification. Notice that the samples being used in this topic consist 
of the programs written in the entry mode topic. 

The sample in Figure 3-5 is taking two records (ITEMINF and SHIPINF) from 
the program and writing review statements that allow DE/RPG to automatically 
select the appropriate formats for displaying the records Q. The other formats 
in the program do not have review statements in this sample. 



00001 *********** 

00002 * PROGRAM 2 

00003 *********** 
00004ZJ INQUIRE 
00005Z AOIDENT 
00006Z AiMENU 
00007Z 

00008Z A2ITEMINF 
00009Z A3SHIPINF - 
OOOiOZ I 

OOOiiZ I 

00012 A r 

00013A R 

00014A 
00015A 

000 16A R 

00017A 

00018A 

00019A 

00020A R 

00021A 

00022A 

00023A 

00024A 

00025A R 

00026A 

00027A 

00028A 

00029A F 



************ 
0. FIGURE 
************ 

IE 

IE *P0S000 
E *P0S000 
NE 

R *P0S15 
jl R *P0S006 
TiMPUT 

IDENT 

FLDi 

FLD2 

MENU 



FLD3 

ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

SHIPINF 

FLD8 

FLD9 

FLDiO 

LOOK 



**************************************** 
3-5 FROM THE DE/RPG USER'S GUIDE * 
**************************************** 

TFILE(LOOK) 

Ai 
i 'i' n A2 SLN0(3) 
i '2' ■■ A3 

AO 

BAO 
A2 
i ' S ' Kl A3 

DEVICE (CRT) DSPSIZ(6 80) 



61 

30X 
6D 



PMT( ENTER THE CUSTOMER'S NAME) 
PMT(ENTER THE CUSTOMER ID) CHECK(DR) 



0001001' 1 ENTER ITEM* AND PRICE DATA 
0002001' 2 ENTER THE SHIPTO DATA' 
1 I00300iCHECK<DR) 



PMT< ENTER ITEM*) 
PMT(ENTER PRICE) 
PMT< ENTER QUANTITY) 
INSERT CI' ) 



6 


I 


5 


21 


3 


01 


1 


I 


30X 


I 


30 


I 


1 


I 


61 





PMT( ENTER NAME) 
PMT( ENTER ADDRESS) 
INSERT ( 'S') 
DEVICE(DISK Di) 



Figure 3-5. A Sample Program Showing the Valid Use of Multiple Review Formats 

When the ITEMINF and SHIPINF records were initially written, they contained 
record markers that were included to identify them during the review modes. 
These record markers were I Q for the ITEMINF record and S Q for the 
SHIPINF record. They were supplied by the INSERTC ') operation. 



Controlling Display and Diskette Formats via the Z-Specifications 55 



These record markers are now used to direct DE/RPG in selecting the 
appropriate format for the review mode. As the sample indicates, the review 
statement for the ITEMINF format contains a *P0S15 Q in the Test Position 

column and an I in the Character to Test columns. The 15 is determined in the 
following way: 

Add the lengths of the fields preceding the test character field 

6 + 5 + 3 = 14 
Add 1 to determine the position for the test character 

14+1-15 

The *POS61 m test position for the SHIPINF record is determined in the same 
way. 

The result is that DE/RPG always selects the ITEMINF format whenever an I is 
encountered in position 15 of the current diskette record and the SHIPINF 
format whenever an S is encountered in position 61 of the current diskette 
record. 
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This sample does not show you the optimal way to specify review formats; 
the length of the fields in the ITEMINF and SHIPINF records are not the same. 
Therefore, position 15 of the SHIPINF record could contain an I (because this 
would be a position within the customer name field of the SHIPINF record), 
and therefore, the ITEMINF format could be selected for reviewing a SHIPINF 
record. The sample in Figure 3-6 shows you how to correct this type of 
problem. 



00001 »****«**»«m*****#**#**##*#####*»****#*##**************#******#* 

00002 * PROGRAM 21. FIGURE 3-6 FROM THE DE/RP6 USER'S GUIDE * 

00003 **«*«#«##«#*####*«*#*»#*##***#********#«*#»#**# ****** ********** 



A2ITEMINF 
A3SHIPINF 



00004ZJ INQUIRE 

00005Z A0IDENT 

00006Z A1MENU 

00007Z 

00008Z 

00009Z 

00010Z | 

00011Z 

000 12A F 

000 13A R 

0001 4 A 

00015A 

0001 6 A R 

0001 7A 

00018A 

00019A 

00020A R 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A R 

00027A 

00028A 

00029A 

00030A F 

00031 



IE 
IE 

E 
NE 

1 iE 

INPUT 
I DENT 
FLDi 
FLD2 
MENU 



FLD3 

ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

FLDA 

SHIPINF 

FLD8 

FLD9 

FLD10 

LOOK 



*P0S0001 
ftPOSOOOl 



*P0S006i 
*P0S0061 



•1' 



•I 



61 

30X 
6D 



TFILE(LOOK) 
Al 

A2 SLN0(3) 
A3 
AO 
AO 
A2 
A3 
DEVICE(CRT) DSPSIZ(6 80) 

PMT< ENTER THE CUSTOMER'S NAME) 

PMT< ENTER THE CUSTOMER ID) CHECK (DR) 



0001001' 1 ENTER ITEM* AND PRICE DATA' 
0002001-2 ENTER THE SHIPTO DATA' 
I003001CHECKCDR) 



6 


I 


5 


21 


3 


01 


46 


I 


1 


I 


30X 


I 


30 


I 


i 




61 





PMT( ENTER 
PMT< ENTER 
PMT< ENTER 
CHECK (BY) 
INSERT CI' 


ITEM*) 
PRICE) 
QUANTITY) 

') 


PMT( ENTER NAME) 
PMT( ENTER ADDRESS) 
INSERT ( 'S' ) 
DEVICE(DISK Di) 



Figure 3-6. A Program Showing a Suggested Technique for Multiple Review Format Selection 

Take the previous sample and add a field that extends the record marker for 
the ITEMINF record to the corresponding position of the record marker in the 
SHIPINF record. Determine the length of this field in the following way: 

Subtract the position of the ITEMINF record marker from the position of 
the SHIPINF record marker 

61-15 = 46 

The length of this new field should be 46. The CHECK(BY) operation provides 
a field that consists of blanks and which cannot be altered by the operator. 
Look at the sample Q. Now the review statement for both format selections 
contains a *POS61 test position H. 



Controlling Display and Diskette Formats via the Z-Specifications 57 



To illustrate the most complex review mode format selection, the sample uses 
a new program. The entire program is not shown; only those parts that are 
directly related to the complex review format selection are provided. See the 
sample in Figure 3-7. 



OOOOiZ******************************* 
. FIGURE 3-7 IN 



00002Z* PROGRAM 



00003Z****** ****** 

00004ZJ RESEARCH 

00005Z BOGENERAL 

00006Z | 

00007Z BiMALE 

00008Z 

00009Z B2FEMALE 

OOOiOZ 

OOOiiZ B4MASISTAT 

00012Z B5MAMARSTA 

00013Z B&FESISTAT 

00014Z B7FEMARSTA 

00015Z 

00016Z 

00017Z 

00018A F 

00019A R 

00020A 

00021A 

00022A R 

00023A 

00024A 

00025A 

00026A R 

00027A 

00028A 

00029A 

00030A R 

00031A 

00032A 

00033A R 

00034A 

00035A 

00036A R 

00037A 

00038A 

00039A R 

00040A 

00041A 

00042A F 



IE *P0S000i 

] E *P0S000i 

iE *P0S0002 

E *P0S0002 
IE *P0S0002 

E *POS0002 
NE 
NE 
NE 
NE 

R *P0S000i 

RA*P0S0002 

R 
EX 
GENERAL 

FLDi 
MALE 

FLD2 
FLD3 
FEMALE 

FLD4 
FLD5 
MASISTAT 

FLD6 
MAMARSTA 

FLD7 
FESISTAT 

FLD8 
FEMARSTA 

FLD9 
CENSUS 



a************************************** 
THE DE/RPG USER'S GUIDE * 

TFILE(CENSUS) 
Bi 
B2 
B4 
B5 
B6 
B7 
BO 
BO 
BO 
BO 



B6 



DEVICE(CRT) DSPSIZ(6 80) 



'THIS IS THE GENERAL RECORD' 

1 PMT(S=SINGLE, M=MARRIED, USE ENTER) 

'THIS IS THE MALE RECORD' 

1 INSERT CM') 

I PMT(S=SINGLE, M=MARRIED, USE ENTER) 

'THIS IS THE FEMALE RECORD' 

1 INSERT('F') 

I PMT(S=SINGLE, M=MARRIED, USE ENTER) 

'THIS IS THE MASISTAT RECORD* 

1 PMTCUSE ENTER, NEXT IS GENERAL) 

'THIS IS THE MAMARSTA RECORD' 

1 PMT(USE ENTER, NEXT IS GENERAL) 

'THIS IS FESISTAT' 

1 PMT<USE ENTER, GENERAL NEXT) 

'THIS IS THE FEMARSTA RECORD' 

1 PMT(USE ENTER, GENERAL NEXT) 
DEVICE(DISK Di) 



Figure 3-7 (Part 1 of 2). A Program Showing Complex Use of Multiple Format Selection 
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I 



OOOi A 40 

F=FEMALE M=MALE USE ENTER 

THIS IS THE GENERAL RECORDmH 



J 



I 



OOOi A 40 

S=SINGLE, M=MARRIED, USE ENTER 

THIS IS THE MALE RECORDM 



J 



I 



OOOi A 40 

MM 

OWNS 5-R00M HOME IN SECTOR i6 

PROFESSIONAL 

36 YEARS OF AGE 



973-48-295 



J 



Note: The program literals indicate the type of record that would be displayed. 
The sample displays show the type of information that might be used for this 
kind of application. 

Figure 3-7 (Part 2 of 2). A Program Showing Complex Use of Multiple Format Selection 
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The technique being demonstrated is the selection of the correct format to use 
for records that use two record markers to select the appropriate format for 
review mode. The process is called AN Ding. Before the format can be 
selected, both test conditions Q must be true. 

The sample program that demonstrates format selection through AN Ding test 
conditions uses an application common to population census applications. The 
program allows an operator to enter data into record types in a way that this 
data can be separated and identified later. The first record that an operator 
sees is the one named GENERAL. The first display Q demonstrates the type 
of information required by this record type. Depending on the entry in the first 
position of this record (F for female and M for male), DE/RPG selects either 
the MALE or FEMALE format. In this sample, the selected format is MALE Q. 
The operator enters data of the type shown by the second sample display Q. 
If the second field of this record is an M, DE/RPG automatically selects the 
format called MAMARSTA (for male married statistics). The type of data the 
operator enters into this record is indicated by the third display Q. During the 
review mode, the MAMARSTA format is selected whenever DE/RPG 
recognizes an M in position one of the current diskette record and an M in 
position two. As you notice in the third display, this is the identifying sequence 
used by this record type. This concludes the example of AN Ding test 
conditions to select a format for the review mode. 

The various ways formats can be selected for the review mode have been 
demonstrated in this topic. The next topic in this chapter describes the ways in 
which you can determine the contents of the diskette formats. 
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USING THE Z-SPECIFICATION TO CONTROL DISKETTE FORMATS FOR A 
TRANSACTION FILE 

The default format for diskette records written by using a transaction file is 
identical to the format specified for the display. The first sample program used 
in this chapter demonstrates this default. Look at the sample in Figure 3-8. 
Notice that the detailed view of the diskette record Q contains fields in the 
order in which they were entered by the operator using the display format Q. 

To change the default for writing the diskette record created by a transaction 
file, you must specify a different diskette record to be used in the program. 
The record you specify must contain all data fields contained in the entry 
display format and it must not contain fields from any other record. The order 
of the fields is the part of the record that can be changed. 



OO00iZ*tttf*ff*KK*tf 

00002Z* PROGRAM 

00003Z**tt****tttttt 

00004ZJ INQUIRE 

00005Z AOIDENT 

00006Z AiMENU 

00007Z 

00008Z A2ITEMINF 

00009Z A3SHIPINF 

OOOiOZ 

OOOiiZ 

00012A 

00013A 

00014A 

00015A 

00016A 

000 17A 

00018A 

00019A 

00020A n 

00021A El 

00022A 

00023A 

00024A 

00025A 

00026A 

00027A 

00028A 

00029A 

00030A 



**************** 
23. FIGURE 3-8 
**************** 

IE 

IE *P0S000i 

E *P0S000i 

NE 

IE 

R *P0S006i 

R *P0S006i 

F INPUT 

R IDENT 

FLDi 

FLD2 

R MENU 



FLD3 

ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

FLDA 

SHIPINF 

FLD8 

FLD9 

FLDiO 

LOOK 



************************************* 

IN THE DE/RPG USER'S GUIDE * 
********************* **************** 

TFILE(LOOK) 

Ai 

A2 SLN0<3) 

A3 

AO 

AO 

A2 

A3 

DEVICE(CRT) DSPSIZ<6 80) 



i 



•I' 
'S' 
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30X 
6D 



PMT( ENTER THE CUSTOMER'S NAME) 

PMT( ENTER THE CUSTOMER ID) CHECK <DR) 



OOOiOOi'i ENTER ITEM* AND PRICE DATA 
0002001' 2 ENTER THE SHIPTO DATA' 
i I00300iCHECK(DR) 



PMT( ENTER ITEM*) 
PMT( ENTER PRICE) 
PMT(ENTER QUANTITY) 
CHECK (BY) 
INSERT( 'I' ) 



6 


I 


5 


21 


3 


01 


46 


I 


i 


I 


30X 


I 


30 


I 


i 




6i 





PMT< ENTER NAME) 
PMT< ENTER ADDRESS) 
INSERT( 'S' ) 
DEVICE<DISK Di) 




M 



3 



FLD1 FLD2N)2\\FLD8 FLD9 FLD10SV FLD1 FLD2\\ 1 UFLD4 FLD5 FLD6 




J 



Figure 3-8. A Sample Program Showing Diskette Data Set Reformatting 
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The sample in Figure 3-9 demonstrates how this specification can be made. 
Although the program is the same one used in the previous sample, notice that 
there is now a record following the file statement for the diskette Q. Also 
notice the keyword WRITE followed by the new record name on the entry 
format line Q. As the sample illustrates, the program reorganizes the 
sequence of the fields in the diskette record Q as specified by the format 
named as the WRITE parameter. 



OOOOiZ*«tf*tftt*ft*ft 

00002Z* PROGRAM 

00003Z***#*#*### 

00004ZJ INQUIRE 

00005Z AOIDENT 

00006Z AiMENU 

00007Z 

00008Z A2ITEMINF 

00009Z A3SHIPINF 

OOOiOZ 

OOOiiZ 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A 

00027A 

00028A 

00029A 

00030A 

00031A 

00032A 

00033A 

00034A 

00035A 

00036A 

00037 



************** 

24. FIGURE 3- 

************** 

IE 

IE *P0S000i 
E *P0S000i 
NE 
iE 

R *P0S006i 
R *P0S006< 
F INPUT 
R IDENT 
FLDi 
FLD2 
R MENU 



FLD3 
R ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

FLDA 
R SHIPINF 

FLD8 

FLD9 

FLDiO 
F LOOK 
R ITEM 

FLD7 

FLD6 

FLD4 

FLD5 

FLDA 



*************************************** 

9 IN THE DE/RPG USER'S GUIDE * 

*************************************** 

TFILE<LOOK) 
Ai 
'i' A2 
' 2 ' A3 

AO WRITE<ITEM>H 
AO 
'I' A2 
' S ' A3 
61 DEVICE(CRT) DSPSIZ<6 80) 



30X 
6D 



PMT( ENTER THE CUSTOMER'S NAME) 
PMT(ENTER THE CUSTOMER ID) CHECK(DR) 



OOOiOOi'i ENTER ITEM* AND PRICE DATA 
0002001' 2 ENTER THE SHIPTO DATA' 
i I00300iCHECK(DR) 



6 


I 


5 


21 


3 


01 


46 


I 


i 


I 


30X 


I 


30 


I 


i 




61 




46 




3 





6 




5 


9 


1 





PMT( ENTER 
PMT(ENTER 
PMT( ENTER 
CHECK(BY) 
INSERT( 'I 



ITEM*) 
PRICE) 
QUANTITY) 

) 



PMT( ENTER NAME) 
PMT( ENTER ADDRESS) 
INSERT CS' ) 
DEVICE(DISK Dl) 




± 



FLD1 FLD2\\2\\FLD8 FLD9 FLD10UFLD1 FLD2\\1 FLD7 FLD6 FDL4 FDL5 FLDA 



a 



Figure 3-9. A Sample Program Showing Simple Reformatting for a Data-Entry Program 
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To write a record that uses a different format from the one used for the 
display, both these conditions must exist: (1) a new record must be created 
within the diskette file and (2) the WRITE keyword followed by the record 
name must appear in the statement for the entry mode display format. 

When the entry mode display and diskette formats are not identical, you must 
make a decision about which to use for displaying the record in the review 
mode. Your choice consists of using either the initial entry format or of using 
the diskette format. If you select the diskette format for the review mode, you 
must include a description of this format within the CRT file. 

One other possibility exists concerning the diskette format. So far, you have 
seen that you can use the default format that is identical to the display format 
and that you can specify a separate format. The last possibility for data sets 
created by transaction files is the suppression of writing a diskette record. This 
is done with the WRITE(*NO) operation Q. A possible application is the 
MENU record shown in previous samples. This record must be displayed, but 
the entry is not required in the diskette data set. Look at the following sample. 
Note that FLD3 is now missing from the data set Q. 
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0000 iZ*********** 

00002Z* PROGRAM 2 

00003Z*********** 

00004ZJ INQUIRE 

00005Z AOIDENT 

00006Z A1MENU 

00007Z 

00008Z A2ITEMINF 

00009Z A3SHIPINF 

OOOiOZ 

OOOiiZ 

00012A F 

00013A R 

00014A 

00015A 

00016A R 

00017A 

00018A 

00019A 

00020A R 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A R 

00027A 

00028A 

00029A 

00030A F 

00031 A R 

00032A 

00033A 

00034A 

00035A 

00036A 

00037 



*ttft*K*«««ftft*tt 
5. FIGURE 3- 
************* 

IE 

IE *P0S0001 
E *P0S0001 
NE 
IE 
R *P0S006i 
R *P0S0061 
INPUT 
IDENT 
FLDi 
FLD2 
MENU 



FLD3 

ITEMINF 

FLD4 

FLD5 

FLD6 

FLD7 

FLDA 

SHIPINF 

FLD8 

FLD9 

FLDiO 

LOOK 

ITEM 

FLD7 

FLD6 

FLD4 

FLD5 

FLDA 



fttt*tt*«**««tt»*****»««***««tt«**tt«fttfft*«fttt« 
10 IN THE DE/RPG USER'S GUIDE 

*«**«*****«*******fftttfttft«**«K**«*tftf*tt*tfft 

TFILE(LOOK) 



•1 



'I 
•S 1 



WRITEUNO) SLN0<3) 
URITE(ITEM) 



61 

30X 
6D 



6 

5 

3 

46 

1 

30X 

30 

i 

61 

46 
3 
6 
5 
1 



Al 
A2 
A3 
AO 
AO 
A2 
A3 
DEVICE(CRT) DSPSIZ(6 80) 

PMT( ENTER THE CUSTOMER'S NAME) 
PMT(ENTER THE CUSTOMER ID) CHECMDR) 



OOOiOOi'i ENTER ITEM* AND PRICE DATA' 
0002001-2 ENTER THE SHIPTO DATA' 
1 I003001CHECK(DR) 



I 

21 

01 

I 



PMT( ENTER 
PMT( ENTER 
PMT( ENTER 
CHECK < BY) 
INSERTCI 1 



ITEM*) 
PRICE) 
QUANTITY) 

) 



PMT( ENTER NAME) 
PMT( ENTER ADDRESS) 
INSERT ( 'S' ) 
DEVICE<DISK Dl) 




I 



FLD1 FLD2UFLD7 FLD6 FLD4 FLD5 FLDAWFLDI FLD2\\FLD8 FLD9 .. 



E3 



J 



Figure 3-10. A Sample Program Showing How a Record Can Be Displayed but Not Written in the Diskette Data Set 

This concludes the topic describing the cpntrol of diskette formats for data 
sets created by a transaction file. The next topic describes controlling display 
formats and diskette formats through subroutines on the C-specifi cation. 
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Chapter 4. Controlling Display and Diskette Formats via the C-Specifications 



All format control through subroutines on the C-specification must be explicit. In 
other words, you must specify the operation to be performed on the format, such 
as reading it from or writing it to a diskette data set or placing data on the display. 

Subroutines on the C-specification can be accessed in one of two ways: (1) by 
naming the subroutine in an entry format statement on the Z-specification or (2) 
by using the EXSR keyword and subroutine name on the A-specification. The 
samples in Figure 4-1 demonstrate the ways in which subroutines can be called. 

Sample A illustrates calling the subroutine from the Z-specification. Sample B 
illustrates calling the subroutine from the A-specification. 



Sample A 

0000iZ*************************«************************************* 
00002Z* PROGRAM 26. FIGURE 4-i SAMPLE A IN THE DE/RPG USER'S GUIDE 
00003Z*************************************************************** 
00004Z.I SAMPLE! 



'IP 

>6A 



0000! 

0000 

00007A 

00008A 

00009A 

000 10A 

OOOiOA 

00011A 

00012A 

00013A 

00014A 

00015A 

00016A 

00017C 

000 iBC 

00019C 

00020C 

00021C 

00022C 

00023C 

00024 

00025 



CiMAST 



NOi 



IE 
INPUT 
: HEADER 
FLDi 
FLD2 
FLDX / 

FLD3 
■ OUTPUT 
( HEAD 

FLD3 

FLDi 
. FLD2 
| MAST 
RETURN 

FLDX 
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30 

30 

i 



BEGSR 

TAG 

EXFMTHEADER 

COMP 'X' 

URITEHEAD 

GOTO RETURN 

ENDSR 



EOJ 
DEVICE(CRT) DSPSIZ<6 80) 

3 1PMT< ENTER NAME) 

4 iPMT< ENTER ADDRESS) 

5 iPMTdF THIS IS THE LAST RECORD TO + 

ENTER r PLACE AN X HERE) DSPATR(RI) 
5 79INSERT< 'H') 

DEVICE<DISK Di) 



Oi 



Figure 4-1 (Part 1 of 2). A Sample Program Showing a Call to a Subroutine from the Z-Specification 
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OOOOiZ******************************** 


00002Z* 


PROGRAM 


27. FIGURE 


4-i SAMPLE 


00003Z******************************** 


O0004ZJ 


SAMPLEX 




00005Z 


El HEADER 


IE 




00006Z 


E2DETAIL 


IE 




00007A 




F INPUT 


67 


00008A 




R HEADER 




00009A 




FLDi 


30 I 


OOOiOA 




FLD2 


6 I 


OOOiiA 




FLD3 


30 I 


00012A 




TLD4 


i I 


00013A 




R DETAIL 




00014A 




FLD5 


6 I 


00015A 




FLD6 


30 I 


00016A 




FLD7 


5 I 


00017A 




FLD8 


5 I 


00018A 




F FINAL 


46 


O0019A 




R DET 




00020A 




K FLD5 


6 


00021A 




FLD6 


30 


00022A 




FLD7 


5 


00023A 




FLDB 


5 


00024A 




F INTERMED 


67 


00025 








00026C 


Qout 


BEGSR 


00027C 






WRITEDET 


00028C 






ENDSR 


0002? 









Sample B 

tt********ftft**K«**ttttfttt«Mtt*ft«»«*****ff*»tf« 

B IN THE DE/RPG USER'S GUIDE < 

a************************************** 

TFILE( INTERMED) 
E2 
Ei 
DEVICE(CRT) DSPSIZ<6 80) 



PMT( ENTER CUSTOMER NAME) 
PMT< ENTER CUSTOMER*) 
PMT(ENTER ADDRESS) 
INSERT ( 'H' ) 



PMT( ENTER ITEM*) 
PMT(ENTER DESCRIPTION) 
PMT( ENTER PURCHASE) 
PMT( ENTER PRICE) EXSR(OUT) 
DEVICE<DISK Di) 



DEVICECDISK Di) 



Figure 4-1 (Part 2 of 2). A Sample Program Showing a Call to a Subroutine from the A-Specification 
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CALLING SUBROUTINES FROM THE Z-SPECIFICATIOIM 

A subroutine named in an entry format on the Z-specification is executed, as 
are all other entry formats, when it is selected based on a previous test 
condition. When the subroutine is called, DE/RPG exits to the C-specification 
subroutine description. This description must begin with a BEGSR operation 
which names the subroutine (the name must be the same as the name specified 
on the Z-specification). Calling a subroutine in an entry format statement allows 
you to perform complex reformatting of data that has been entered via a single 
entry format specification. The following sample in Figure 4-2 shows you how this 
facility allows you to take data from a single entry format and reformat it to create 
three separate data sets from the one display record. The transaction data set is the 
fourth data set; it is in the order of entry. 



OOOOiZ********************** ************ 


00002Z* 


PROGRAM 


2 


3. FIGURE 4-2 IN THE 


00003Z* ********************************* 


00004ZJ 


MANY 








00005Z 


A1FIRST 




IE 




00006Z 


A2DUTPUT 




IE 




00007A 


a 


F 


INPUT 


180 


00008A 


R 


FIRST 




00009A 






CUSN 


20 I 


OOOiOA 






ADDR 


40 I 


OOOiiA 






COMP 


30 I 


00012A 






PUR 


80 I 


00013A 






DATE 


6 I 


00014A 




F 


CUSNMAST 


66 


00015A 




R 


ONE 




00016A 






CUSN 


20 


000 i7A 






ADDR , 


40 


00018A 






DATE 


6 


00019A 




F 


COMPMAST 


36 


00020A 




R 


TWO 




00021A 






COMP 




00022A 






DATE 




00023A 




F 


ORDMAS 


106 


00024A 




R 


THREE 




00025A 






DATE 




00026A 






PUR 




00027A 






CUSN 




00028A 




F 


OUT 


180 


00029C 




( 


DUTPUT 


BEGSR E| 
URITEONEjjJ 

WRITETWOQ 


00030C 








00031C 








00032C 








URITETHREEgl 
ENDSR ■■ 


00033C 









***************************** 
DE/RPG USER'S GUIDE * 

***************************** 
TFILE(OUT) 
A2 
Ai 

DEVICE(CRT) DSPSIZ(6 80) 

PMT< ENTER THE CUSTOMER'S NAME) 

PMT( ENTER THE ADDRESS) 

PMT( ENTER THE NAME OF THE COMPANY) 

PMT( ENTER THE PURCHASE) 

PMT( ENTER THE DATE) 

DEVICE(DISK Di) 



DEUICE(DISK Di) 



DEVICE(DISK Di) 



DEVICE(DISK Di) 



Figure 4-2 (Part 1 of 2). A Sample Program Showing Complex Reformatting 
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OOOi A 40 

MARGARET RUTHERFERD 1533 RAGNOLLA DRIVE, WASHBURN, MARYLAND APEX DESIGNS ESQ 
300 PAIR RDOMOR PANTS, LOT 576 
032880 



I 



J 




CUSN ADDR COMP PUR DATE CUSN ADDR COMP PUR DATE 



J 




CUSN ADDR DATE CUSN ADDR DATE . 



J 




COMP DATE 



I 




DATE PUR CUSN 



I 



DATE PUR CUSN /DATE PUR CUSN 



Figure 4-2 (Part 2 of 2). A Sample Program Showing Complex Reformatting 



I 
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This program illustrates the combination of using a transaction file and explicit 
write operations to create data sets. Each time the operator completes the 
entry using the display format named FIRST Q, a default record is written in 
the data set named by the TFILE function and three reformatted records Q, 
Q, and Q are written in three separate data sets as determined by the 
subroutine on the C-specification. 

In addition to the complex reformatting capabilities shown in the previous 
sample, the entire interactive program can be controlled by the subroutine on 
the C-specification. The sample in Figure 4-3 demonstrates how this can be 
accomplished. The first entry format specified is the name of a subroutine on 
the C-specification n . As you look at the subroutine contents you can see 
that it contains an operation named EXFMT H followed by a name that is 
repeated on the A-specification. This operation allows you to tell DE/RPG 
when to display a format that the operator uses to enter data. Once the data 
is entered, control returns to the subroutine and the data can be reformatted 
for writing to a diskette data set or written as it occurs in the display format 
Q. It is possible to loop (or cycle) through the process again and again Q. 



OOOOiZ* 

00002Z* 

00003Z* 

00004ZJ 

00005ZI 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

QiX5i2A 

000 13A 

00014A 

00015A 

00016A 

000 17C 

000 18C 

000 19C 

0002 OC 

00021C 

00022C 

00023C 

00024 

00025 

00026 



PROGRAM 29. FIGURE 4-3 IN THE DE/RPG USER'S GUIDE < 

a************************************************************* 
SAMPLE 



Dl START 



N01 
NOi 



IE 

■ INPUT 
; ITEMID 

FLDi 

FL.D2 

FLD3 

FLDX 

MAS ITEM 
i ITEM 

FLDi 

FLD2 

FLD3 
START 
RETURN 

FLDX _ 



41 



30 
4 
i 

41 



I 

I 

01 

I 







6 

30 

4 

BEGSR 
TAG 

EXFMTITEMID 
COMP 'X' 
| WRITE ITEM 
GOTO RETURN I 
ENDSR 



EOJ 
DEVICE (CRT) DSPSIZC6 



80) 



PUT (ENTER ITEM*) 
PMKENTER DESCRIPTION) 
PMT( ENTER * SOLD) 
PMT(T0 END, ENTER X) 
-DEVICE (DISK Dl) 



01 



Figure 4-3. A Sample Program Showing Program Control from the C-Specification 

When the subroutine controls the operation of the programs, you can use the 
End of Job key to terminate the program. In this sample, another technique 
for ending the job is used. The operator enters an X in a designated field 
when he wants to terminate the program. This X tells the program to go to 
termination. 
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CALLING A SUBROUTINE FROM THE A-SPECIFICATION 

The second way in which you can call a subroutine on the C-specification is with 
the EXSR keyword on the A-specification. 

This operation allows you to control the format selection from the keyboard but 
still use the C-specification to perform such operations as writing a record in the 
diskette data set. The sample in Figure 4-4 illustrates the sequence that occurs 
when you use the exit from the A-specification to call a subroutine that writes a 
diskette record. 
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OOOOiZ** 
00002Z* 
00003Z** 
OOOO^' 

oooo De 

OOOOElE 

oooo" 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

000 17A 

0001.8A 

000 19A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025 

00026C 

00027C 

00028C 

00029 



PROGRAM 30. FIGURE 
SAMPLEX 



iHEADER 
2DETAIL 



iE 
IE 

INPUT 
: HEADER 

FLDi 

FLD2 

FLD3 

FLD4 
: DETAIL 

FLD5 

FLD6 

FL.D7 

FLD8 
" FINAL 
i DET 
; FLD3 

FLD6 

FLD7 

Fl D8 

INTERMED 

OUT 



a***************************************** 
4-4 IN THE DE/RPG USER'S GUIDE * 

TF I LE< INTERMED) 
E2 
Ei 
67 DEVICE (CRT) DSPSIZ.(6 80) 



30 I 

6 I 

30 I 

1 I 

6 I 

30 I 

5 I 

5 I 

46 

6 
30 

5 

5 
67 



DFGSR 
| WRITE DET 
ENDSR 



PMT( ENTER CUSTOMER NAME) 
PMT ( ENTER CUSTOMER* ) 
PMT< ENTER ADDRESS) 
INSERT ( ' H' ) 

PMT (ENTER ITEM*) 

PMT (ENTER DESCRIPTION) 

PMT (ENTER PURCHASE) 

PMT (ENTER PRICE) EXSR(OUT) 

DEVICE (DISK Di) 



DEVICE (DISK Di) 




}\ 



FLD1FLD2 FLD3 FLD4 \\ FLD5 FLD6 FLD7 FLD8 \l FLD1 FLD2 



)[ 



I 



FLD5 FLD6 FLD7 FLD8 



[ 



FLD5 FLD6 FLD7 FLD8 . 



7 



Figure 4-4. A Sample Program Showing Display Control from the A-Specification and Diskette Data Set Control 
from the C-Specif ication 

The sample program displays a HEADER format Q as specified by the entry 
statement on the Z-specif ication. After the operator completes the entries for 
one HEADER record, the DETAIL format is automatically displayed Q. At the 
completion of each format, a record is written in the transaction data set Q. 
At the conclusion of the DETAIL format Q, the subroutine writes a DET record 
Q in key sequence Q in the diskette data set Q. When the DETAIL format 
has been completed, the HEADER format is redisplayed. This process is 
repeated for the new customer. The process continues until the operator uses 
the End of Job key. In this example, the End of Job key works because a 
transaction file is being used. 
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This concludes the description of controlling formats through subroutines on 
the C-specification. Chapter 5 contains topics describing the control of the 
contents of the display, and Chapter 6 contains topics describing the control of 
the contents of diskette records. 
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Chapter 5. Formatting Techniques for the Displays 



This chapter describes characteristics of the display formats. A variety of ways 
to design displays for various applications are provided. 
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The default display format consists of fields strung together with no overlap or 
spacing other than the spacing resulting from unused field positions or display 
attributes. The sample in Figure 5-1 demonstrates the default format. Notice 
that the position columns of the A-specifi cation are unused. 



00001Z*********************************** 
00002Z* PROGRAM 31. FIGURE 5-i IN THE 
00003Z******tt********ff**M*****tt*« ******** 
00004ZJ OVMASTER 



**************************** 

DE/RPG USER'S GUIDE * 

**************************** 
TFILE(OVERhAST) 



00005Z A1FIRST 


IE 






Ai 


00006Z 


R 






Al 


00007A 


F OVERALL 


17 




DEVICE(CRT) DSPSIZ<6 80 


00008A 


^fcFIRST 
■iFLDi 








00009A 


5C 


I 


SHIFT(XXXDD) DSPATR(CS) 


OOOiOA 


fj|FLD2_ 
FLD3Q 


3 


I 


DSPATR(CS) 


OOOiiA 


4 


I 


DSPATR(CS) 


00012A 


QFLD4 


5 


I 


DSPATR(CS) 


00013A 







'FLDi' 


00014A 









'FLD2' 


00015A 









'FLD3' 


0001 6A 









'FLD4' 


00017A 


F OVERMAST 


17 




DEVICE<DISK Dl) 



I I I I I I I I IFLD1FLD2FLD3FLD4 



I 



Figure 5-1 . A Sample Program Showing the Default Display Format with the Use of Display Attributes 

The unformatted display shown in the sample in Figure 5-1 is not format 
which is referred to as the default format for data shown in some of the 
modes (such as copy and insert) described in the DE/RPG Reference Manual. 
Format consists of single-character fields that are strung together across the 

display. The sample in Figure 5-1 illustrates a user-generated format that consists 
of fields with lengths specified by the person writing the program. 

During the update mode, the preceding sample program allows an operator to 
alter data. All changes in the data are tested against the edits and checks 
initially imposed on the fields. If an operator tries to enter 1AA23, for example, 
in FLD1, an error occurs because the new data does not match the pattern 
specified for the field (alpha, alpha, alpha, digit, digit). 



J 
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One method of providing flexibility to the program so that edits and checks can 
be suspended during the update mode is to specify format in the review 
statement. See the sample in Figure 5-2. 

00001Z*************************************************************** 

00002Z* PROGRAM 32. FIGURE 5-2 IN THE DE/RPG USER'S GUIDE * 
00003Z**ft*******tf*****ft*********K*K*****ft******tt*«*tt*«***fttf*ft«ftttfttt*«* 



00004ZJ 


OVMASTER 






TFILE(OVERMAST) 


00005Z 


AiFIRST 


IE 






— Ai 


00006Z 




R 






Do 


00007A 




F OVERALL 


17 




DEVICE(CRT) DSPSIZ<6 80) 


00008A 




R FIRST 








00009A 




FLDi 


5C 


I 


SHIFT(XXXDD) DSPATR(CS) 


000 iOA 




FLD2 


3 


I 


DSPATR(CS) 


OOOiiA 




FLD3 


4 


I 


DSPATR(CS) 


00012A 




FLD4 


5 


I 


DSPATR(CS) 


00013A 




F OUERMAST 


17 




DEVICE(DISK Di) 


00014 













Figure 5-2. A Sample Program Showing the Use of Format to Suppress Edits and Checks 

When format is specified in a review statement, each data character forms a 
field. None of the original edits and checks are enforced. The operator is free 
to alter the data as needed. When the diskette record is an exact replica of 
the display record, the display appears the same as the diskette contents. 

If you specify format in a review statement of a program, be aware that it 
displays the diskette contents. If the diskette record has been reformatted, the 
field order may be different from that used in the initial entry; and, the 
operator may not be able to identify the fields that are displayed. No literals or 
prompts can be used with format 0. 
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The sample in Figure 5-3 shows a formatted display. It takes the first sample 
and uses the position columns. Notice how the fields are placed exactly where 
you want them to be in order to present an attractive display. 



00001Z*************ff**ft#**ft***wft*ttft 
00002Z* PROGRAM 33. FIGURE 5-3 
00003Z*****K****************ttw*tt«** 
00004ZJ OVMASTER 
00005Z A1FIRST IE 



«*«tf ******************* W**ft«***«*ft 

IN THE DE/RPG USER'S GUIDE * 

********************* ************* 

TFILE(OVERMAST) 
Ai 



00006Z 




R 








Al 


00007A 


F 


OVERALL 


17 






DEVICE(CRT) DSPSIZ(6 80 


00008A 


R 


FIRST 










00009A 




FLDi 


5C 


I 


1 


2SHIFT<XXXDD) DSPATR(CS) 


OOOiOA 




FLD2 


3 


I 


2 


IDSPATR(CS) 


OOOiiA 




FLD3 


4 


I 


2 


20DSPATR(CS) 


00012A 




FLD4 


5 


I 


3 


iDSPATR(CS) 


00013A 











1 


10'FLDi' 


00014A 











2 


10'FLD2' 


00015A 











2 


25'FLD3' 


00016A 











3 


10'FLD4' 


00017A 


F 


OVERMAST 


17 






DEVICE(DISK Dl) 


00018 














00019 















0001 A 40 
| | FLDI 

FLD2 f I I I I FLD3 
I FLD4 



I 



Figure 5-3. A Sample Program Showing a Formatted Display with Display Attributes 

In the position columns on the A-specif ication, the entries in the first three 
columns specify the row and the second three columns specify the column on 
the display. If you are not using the Source Entry Program provided with the 
DE/RPG compiler to enter your program in preparation for a compilation, 
ensure that the numbers entered in the position columns are right-adjusted 
with either zero or blank fill. 

The positioning of fields on the display does not affect their positioning on the 
diskette. Other than the sequence for the transaction data set being a replica 
of the display sequence, the display formats and the diskette formats are 
independent of one another. 
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USING DIFFERENT DISPLAY FORMATS FOR ENTRY AND REVIEW MODES 

When an experienced operator is entering the same type of data every day, a 
highly prompted display is unnecessary. The operator does not need to see a 
display filled with prompting information to guide the entry. The operator 
simply wants to enter the data and proceed to the next record. 

Consider, however, the IBM 5280 used by an operator who only occasionally uses 
it to enter data into the system. This operator could be an individual in a remote 
location. The main occupation of the operator may be shipping parts, but 
occasionally there is a need to use the IBM 5280 to update inventory. A highly 
prompted and formatted display is not only desirable but necessary to guide the 
entry. 

It is possible that the operator for whom you are writing the program has the 
need for both types of displays. For the initial entry, he requires a highly 
prompted, formatted display. For review purposes, he requires only the data 
fields without formatting. By specifying a separate review format display, this 
can be accomplished. See the sample in Figure 5-4. 
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0000 iZ** **************** ****** 
00002Z* PROGRAM 34. FIGURE 5- 
00003Z************************ 
00004ZJ INVENT 
OOOOlKlEt FIRST NE 
OOOOo El 

00007Z E2SEC0ND 
00008Z 



00009A 

OOOiOA 

OOOiiA 

OOOiiA 

00012A 

00012A 

00012A 

00013A 

00013A 

00013A 

00014A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024 

00025 

00026 



IE 
R 

F INPUT 
R FIRST 



FLDi 
FLD2 

R SECOND 

FLDi 

FLD2 
F OUTPUTX 



*************************************** 
4 IN THE DE/RPG USER'S GUIDE * 

*************************************** 

TFILE(OUTPUTX) 
HE! SLN0(2) 



ii 



6 

5 

ii 



E2 

DEVICE (CRT) DSPSIZ(6 80) 

OOOiOOi'THIS IS THE INVENTORY PROGRAM. IT + 
IS TO BE USED ONLY WHEN A PURCHASE' 

000200i'HAS BEEN MADE. AT THIS TIME, ENTE+ 
R THE INFORMATION THAT IS REQUESTED* 

000300i'AND THEN PRESS THE REC ADV KEY. Y0+ 
U WILL SEE A MENU THAT WILL GIVE Y0+ 
U ! 

000400i'THE CHOICE OF CONTINUING OR OF END+ 
ING THE JOB. ' 

0005001' PLACE THE ITEM* HERE:' 

1005022 

000:-i'»34' PLACE THE PRICE HERE:' 
21005054 

0005062' PRESS REC ADV 



I 
21 

DEVICECDISK Di) 



t 



OOOi A 40 

THIS IS THE INVENTORY PROGRAM. IT IS TO BE USED ONLY WHEN A PURCHASE 

HAS BEEN MADE. AT THIS TIME, ENTER THE INFORMATION THAT IS REQUESTED 

AND THEN PRESS THE REC ADV KEY. YOU WILL SEE A MENU THAT WILL GIVE YOU 

THE CHOICE OF CONTINUING OR OF ENDING THE JOB. 

PLACE THE ITEM* HERE:OOAAAi PLACE THE PRICE HERE: 09950 PRESS REC ADV 



J 



I 



OOOi A 40 
00AAA109950 



J 



Figure 5-4. A Sample Program Showing Different Displays for the Entry and Review Modes 
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The entry format used for this program is named FIRST and its ID is E1 Q 
Because the next format ID column contains E1 Q, the next format, which 
defines the format to be used for the review mode is not displayed during the 
entry process; it is manually selected. Before a format can be used for the 
review mode, it must be defined as an entry mode format Q. 

Notice that SLNO(2) is used. Because this is the default value, using SLNO does 
not affect the location of the literals on the display. In other words, SLNO in 
this program does not accomplish anything. The use of SLNO is described 
later in this chapter. 

When you use literals, check the length of the message to ensure that it does 
not exceed 80 characters. This prevents unnecessary word divisions that make 
the message difficult to read. 

The fully prompted display is only used for initial entry Q. An unprompted 
display is used for the review mode Q. The format statements control this 
sequence. 



USING THE POSITION COLUMNS TO CREATE PROMPTING TEXT 

One of the most useful functions available in providing programs to be used by 
inexperienced operators is the writing of extensive prompting information on 
the display. The position columns on the A-specifi cation allow you to design 
displays that satisfy this requirement. By using the position columns and 
literals, you can create menus. 

The sample program in Figure 5-5 displays the menu; it does not use the 
operator's entry to select a format. To have the entry control the selection of a 
format, you must use indicators and the C-specification, or test position and 
character to test entries on the Z-specif ication. Chapter 3 contains information 
about using the test position and character to test to select a format, and 
Chapter 8 contains information about using indicators to select formats. It is 
also possible to select programs from menus. To do this, you would include 
EOJCprogramname' device *PASS) on the entry formats; this would automatically load 
the appropriate program next. The DE/RPG Reference Manual contains 
additional information about this keyword and its parameters. 
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0000iZ********»********************«*******************w**#*###*#**#* 
00002Z* PROGRAM 35. FIGURE 5-5 IN THE DE/RPG USER'S GUIDE * 

TFILE(OUTPUT) 

80 DEVICE(CRT) DSPSIZ<12 80) 

OOOiOOi' ENTER ONE OF THE FOLLOWING NUMBERS- 
IN THE FIELD WHERE THE CURSOR IS L- 
OCATED' 
0003005 'i SELECT INVENTORY' 
0004005 '2 SELECT SOLD TO DATE' 
0005005 '3 SELECT TRACE' 
0006005*4 SELECT CUSTOMER MASTER' 
0007005*5 SELECT BILLING* 
i I0i00?6CHECK<FE) 
80 DEVICECDISK Di) 



00004ZJ 


EXAMPLE 




00005Z 


AiFIRST 




IE 


00006A 




F 


INPUT 


00007A 




R 


FIRST 


00008A 








00008A 








00008A 








00009A 








000 iOA 








OOOiiA 








00012A 








0001 3A 








00014A 








00015A 




F 


OUTPU 



I 



OOOi A 40 

ENTER ONE OF THE FOLLOWING NUMBERS IN THE FIELD WHERE THE CURSOR IS LOCATED 
i SELECT INVENTORY 

2 SELECT SOLD TO DATE 

3 SELECT TRACE 

4 SELECT CUSTOMER MASTER 

5 SELECT BILLING 



J 



Figure 5-5. A Sample Program Showing the Design for a Menu 
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In addition to menus, you can design fill-in-the-blank entries. The sample in 
Figure 5-6 illustrates this. 

00002Z» PROGRAM 36. FIGURE 5-6 IN THE DE/RPG USER ' S GUIDE * 

00003Z*w*w#*w#*********w«****#k*w****w*****w****««k****«************* 



00004ZJ 


EX 








TFILE(OUTPUT) 


00005Z 


AiFIRST 




IE 




Ai 


00006A 




F 


INPUT 


55 


DEVICE(CRT) DSPSIZ<6 80) 


00007A 




R 


FIRST 






00008A 










0002001 ' CUSTOMER NAME : ' 


00009A 










0003001' STREET ADDRESS:' 


OOOiOA 










0004001 'CITY: ' 


OOOiiA 










0005001 'STATE: ' 


00012A 








20 


I002017PMT(ENTER THE FOLLOWING INFORMATION) 


00013A 








15 


1003017 


00014A 








10 


1004017 


00015A 








10 


1005017 


OOO 16A 




F 


OUTPUT 


55 


DEVICE(DISK Dl) 







I 



0001 A 40 

ENTER THE FOLLOWING INFORMATION 

CUSTOMER NAME: 

STREET ADDRESS. 

CITY: 

STATE: 



Figure 5-6. A Sample Program Showing a Design for a Display with Fill-in-the Blank Entries 

As in the menu, the prompts used to guide the operator are not written to the 
diskette data set. This requires no special action on your part; prompts are 
never written to the diskette data set. 



J 
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USING THE DISPLAY ATTRIBUTES TO FACILITATE ENTRY 

If you choose to use the default format, you can use the column separator 
display attributes to separate the entry fields. The sample program in Figure 
5-7 uses the display attributes on a field basis Q with no field positioning. 
The display looks as if it contains one long field containing column separators. 
As you begin to enter data, you see that fields have been defined and that 
blank spaces indicate the field boundaries. 



0000 iZ** a************************************************************ 
00002Z» PROGRAM 37. FIGURE 5-7 FROM THE DE/RPG USER'S GUIDE * 
00003Z*»***********#**« #*********#*******##************* ************* 



00004ZJ EXAMPLE 

00005Z AiFIRST IE 

00006A F INPUT 

00007A R FIRST 

00008A FIfldi 

00008A ^Z 

00009A HFLD2 

00010A —-FLD3E 

OOOiiA MFLD4 

00012A F OUTPUT 



59 

2i 

16 
ii 
ii 
59 



TFILE(OUTPUT) 
Ai 
DEVICE(CRT) DSPSIZ(6 80) 

PMT( ENTER THE CUSOMTER'S NAME, ADDR+ 

RESS, CITY, AND STATE) DSPATR(CS) 

DSPATR(CS) 

DSPATR(CS) 

DSPATR(CS) 

DEVICE<DISK Di) 



000 i A Oi 40 

ENTER THE CUSTOMER'S NAME, ADDRESS, CITY, AND STATE 



I I I I I I I i | I I I I | I | I I | | | I I | I I | I | I I I I I | I I I | | | | | | | | | | | I I I | I l| | | | II I I II 



L 



J 



Figure 5-7. A Sample Program Showing the Use of Display Attributes with Unformatted Fields 
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The sample in Figure 5-8 illustrates the use of reverse image with positioned 
fields. 



0000iZ**K******tt*ft ********** 

00002Z* PROGRAM 38. FIGURE 

00003Z********************* 

00004ZJ SAMPLE 

00005Z AiFIRST 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 



IE 

F INPUT 
R FIRST 



FLDi 



FLD2 



FLD3 



FLD4 
OUTPUT 



****************************************** 

5-8 IN THE DE/RPG USER'S GUIDE * 
********************* ********************* 

TFILE(OUTPUT) 

55 DEVICE(CRT) DSPSIZ(6 80) 

OOOiOOi' CUSTOMER' 'S NAME : ' 
20 I00i0i8DSPATR(RI) 

0002001 ' STREET ADDRESS ■ ' 
15 I0020i8DSPATR<RI) 

0003001 'CITY: ' 
10 I003008DSPATR(RI) 

0004001" STATE: • 
10 I004008DSPATR<RI> 
55 DEVICECDISK Di) 



t 



0001 A 40 

ENTER THE FOLLOWING INFORMATION 

CUSTOMER NAME: 

STREET ADDRESS : ff$^$$g?i&5f 

CITY: ..,.,• • • •_:••: -".iV- ■■■ ■. '• "^ ' • 

state: • : i : ;i : !':-:: : : :::;•.: : '■•• '""• '?*%{ ; : ;; : ;lv : - '• > 'I j*!? 



Figure 5-8. A Sample Program Showing the Use of the Reverse Image Display Attribute 

As shown by the sample in Figure 5-9, you can use the no display attribute to 
provide security: 



J 



00001 Z************* ********* 

00002Z* PROGRAM 39. FIGURE 

00003Z********************** 

00004ZJ SAMPLE 

00005Z AiFIRST 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

**CTDATA REFTAB 

659&13250000 

459294350000 

8530263&0000 



Figure 5-9. A Sample Program Showing the Use of the No Display Attribute 



iE 




F INPUT 


24 


R FIRST 




GROSS 


6 


HOURS 


3 


ALL 


10 


F OUTPUT 


24 


F REFTAB 


12 


T EMPT 


6 


T GROSST 


6 



***************************************** 
5-9 IN THE DE/RPG USER'S GUIDE * 

***************************************** 

TFILE< OUTPUT) 

Ai 

DEVICE(CRT) DSPSIZ(A 80) 



2I002002PMT (ENTER EMPLOYEE'S *) 

SUBST<EMPT GROSST) DSPATR(ND) 

1I003001PMT(ENTER HOURS WORKED) 

21004001 INSERT <GROSS«HOURS) DSPATR(ND) 
DEVICE<DISK Di) 
NUMENT<3) 
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All the previous samples in this chapter have demonstrated using field 
attributes for each field on the display. It is possible to specify field attributes' 
to be shown only on the current field. The attributes remain displayed only as 
long as the field is not exited. The samples in Figure 5-10 illustrate this 
technique. 

In Sample A of Figure 5-10, the ENTRATR is specified with no EXITATR. The 
resulting display shows the current field in reverse image. All other fields 
(except those with field attributes defined) are normal displays. In Sample B of 
Figure 5-10, an EXITATR is provided. The resulting display shows reverse 
image only for the current field. The entire display contains column separators. 



i z *************** ******* 
00002Z* PROGRAM 40. FIGURE 
00003Z ************ ********** 
00004ZJ ATTR 



00005Z 






00006Z AiONLY 




NE 


O0007Z 




R 


00008A 


F 


INPUT 


00009A 


R 


ONLY 


OOOiOA 




FLDi 


OOOiiA 




FLD2 


000 i2A 




FLD3 


00013A 




FLD4 


00014A 






00015A 


F 


ALL 



Sample A 

********************************************** 

5-iO IN THE DE/RPG USER'S" GUIDE * 

********************************************** 

TFILE(ALL) 
ENTRATR(RI) 

Ai 

Ai 
100 DEVICE (CRT) DSPSIZ<6 80) 



2PMT( ENTER A NAME) 
20PMT( ENTER A TELEPHONE NUMBER) 
40PMT( ENTER THE CREDIT CARD NUMBER) 
2PMT( ENTER THE CUSTOMER NAME) 
DSPATR(CS) 
DEVICECDISK Di) 



iO 


I 


8 


I 


15 


I 


20 


I 



100 



Figure 5-10 (Part 1 of 2). A Sample Program Showing the Use of the ENTRATR Attribute without the EXITATR Attribute 
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Sample B 

Z* PROGRAM 41. FIGURE 5-iO SAMPLE B IN THE DE/RPG USER'S GUIDE * 

Z**********************tt*****#******M****ft*tt*ft*******M**«****ft*«**«** 



OOOOiZJ 


ATTR 












TFILE(ALL) 


00002Z 














ENTRATR(RI) EXITATR(CS) 


00003Z 


AiONLY 




NE 








Al 


00004Z 






R 








Ai 


00005A 




F 


INPUT 


iOO 






DEVICE(CRT) DSPSIZ<6 80) 


00006A 




R 


ONLY 










00007A 






FLDi 


iO 


I 


2 


2PMT( ENTER A NAME) 


00008A 






FLD2 


8 


I 


2 


20PMT( ENTER A TELEPHONE NUMBER) 


00009A 






FLD3 


15 


I 


2 


40PMT<ENTER THE CREDIT CARD NUMBER) 


OOOiOA 






FLD4 


20 


I 


3 


2PMT< ENTER THE CUSTOMER NAME) 


OOOiiA 




. F 


ALL 


100 






DEVICE<DISK Di) 



Figure 5-10 (Part 2 of 2). A Sample Program Showing the Use of the ENTRATR Attribute with the EXITATR Attribute 
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USING EDTCDE WITH DISPLAY FORMATS 

The sample in Figure 5-1 1 illustrates the use of EDTCDE for the display. EDTCDE 
was intended primarily for use with printed data sets to provide appropriate 
punctuation. Therefore, its use with the display involves some extra manipulation. 
An EDTCDE to the display can only be performed by using a WRITE operation 
to the display from a subroutine. All fields in the edited record must be usage. 
The sample in Figure 5-1 1 illustrates a way that you can write a program with 
input (l-usage) fields and still use EDTCDE. 



00001 z******* ** 

00002Z* PROGRAM 

00003Z*k******* 

00004ZJ EDITEX 

00005Z AiTRANS 

00006Z A2CALCS 

00007Z 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016C 

00017C 

00018C 



************************** W****W*W*********#**W#**##W* 

42. FIGURE 5-ii IN THE DE/RF'G USER'S GUIDE * 

****************************************************** 

TFILE(MINE) 
A2 CLRL<*N0> 
Ai 
Ai 
DEVICE(CRT) DSPSIZ<6 80) 



R 



IE 

iE 
R 
INPUT 
TRANS 
FIRST 
SECOND 
PATT 
FIRST 
SECOND 
MINE 
CALCS 



18 

9 
9 

9 : 
9 ; 
18 

6EGSR 

WRITEPATT 

ENDSR 



21 
21 

20 
20 



30PMT< ENTER THE AMOUNT OF THE BALANCE) 
30PMT( ENTER THE AMOUNT OF THE PAYMENT) 

30EDTCDE<K '$') 
30EDTCDE(K '%') 
DEVICE<DISK Dl) 



Figure 5-11 (Part 1 of 2). A Sample Program Showing Currency Edition on the Display 
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OOOi N 09 40 000007 Ai E 
ENTER THE AMOUNT OF THE BALANCE 



. t 



J 



I 



OOOi N 09 40 000008 Ai E 

ENTER THE AMOUNT OF THE BALANCE 

555555555 
555555555 

$5,555,555.55 
$5,555,555.55 



Figure 5-11 (Part 2 of 2). A Sample Program Showing Currency Editing on the Display 



J 
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USING CLRL AND SLNO TO DISPLAY MULTIPLE RECORDS 

The sample in Figure 5-12 illustrates a program that uses the CLRL and SLNO 
keywords to display multiple records simultaneously. 

This program is presenting the operator with a format that allows him to enter 
name and address information. When the operator completes the information 
and uses the Rec Adv key, it appends the second record, containing a request 
for the driver's license and telephone number, to the first record. The first 
record continues to be displayed. When the second record is completed and 
the operator presses the Enter key, the process starts again. 



0000 1Z**»****»**** *********** 

00002Z* PROGRAM 43. FIGURE 5 

00003Z*********** ************ 

00004ZJ CLEAR 

00005Z A1FIRST 

00006Z A2SEC0ND 

00007A 



00008A 
00009A 
OOOiOA 
OOOiiA 
00012A 
00013A 
00014A 
00015A 
00016A 
00017A 
00018A 
00019A 
00020 



IE 

IE 
INPUT 
FIRST 
FLDi 
FLD2 



R SECOND 
FLD3 
FLD4 



F WHEE 



**************************************** 

-12 IN THE DE/RPG USER'S GUIDE * 

**************************************** 

TFILE(WHEE) 
A2 CLRL(2> 
Al SLN0<4) 
20 I DEVICE(CRT) DSPSIZ(6 80) 

i 20DSPATR(CS) 

2 20DSPATR(CS) 

i 2' NAME' DSPATR<BL HI) 

2 2' ADDRESS' DSPATR<BL HI) 

i 30DSPATR(CS) 
2 30DSPATR(CS) 
i 2' DRIVER 1 'S LICENSE NO.' 
DSPATR(BL HI) 
2 2 'TELEPHONE NUMBER' DSPATR(BL HI) 
20 DEVICE(DISK Di) 



10 


I 


10 


I 












10 


I 


10 


I 








0001 

NAME 

ADDRESS 



I 



A 40 



BEY 



MACHAR 



ROCHESTER 



J 



Figure 5-12 (Part 1 of 2). A Sample Program Showing the Use of CLRL and SLNO on the Display 
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I 



0001 A 40 

NAME 

ADDRESS 

DRIVER'S LICENSE NO. 

TELEPHONE NUMBER 



EEV hAOAR 
ROCHESTER 



M-7E-99013 



i-6i 



5532 



J 



I 



0001 A 40 

NAME 

ADDRESS 

DRIVER'S LICENSE NO. 

TELEPHONE NUMBER 



*- 



7jd-k sic i|3 



-61 



5532 



J 




Figure 5-12 (Part 2 of 2). A Sample Program Showing the Use of CLRL and SLNO on the Display 
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Chapter 6. Formatting Techniques for the Diskette Data Set 



The method used to write the record into the diskette data set determines 
what is required to format the diskette data set. There are basically two ways 
to write a record into a diskette data set: (1) implicitly for transaction data sets 
(a record is automatically written in a transaction data set when completed and 
WRITE(*NO) is not specified) and (2) explicitly for application programs 
(records are written as specified in the subroutines). 

You learned some reformatting techniques in Chapter 5. This chapter provides 
two additional techniques for reformatting diskette data sets. 

1 . Merging fields from multiple records into a single diskette record 

2. Positioning fields within a diskette data set 
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MERGING FIELDS FROM MULTIPLE RECORDS 

It is possible to merge fields from multiple records in data sets created by 
either the transaction file or by subroutines. Both techniques are illustrated in 
this chapter. The first one that is presented is for data sets created by 
subroutines. 

In the sample program in Figure 6-1, the HEADER record Q and the DETAIL 
record Q are completed before the subroutine is called Q. When the exit to 
the subroutine is made, two operations are performed: (1) two fields from the 
DETAIL record are multiplied and a new field is created to hold the contents 
Q; (2) a new record, which consists of fields from the HEADER record and 
the DETAIL record and the new field from the subroutine, is written in another 
diskette data set Q. The entries in the repeat columns on the Z -specification 
determine the sequence of the formats Q. 
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0000 iZ******** ****************** ******* 


00002Z* 


PROGRAM 


44. FIGURE 6-i IN 


THE 


00003Z********************************* 


0000^' 
0000.UE 


SAMPLEX 






[iHEADER 


** NE 






O00O.E|E2DETAIL 






0000TTT 




F INPUT 


67 




00008A 




R HEADER 






00009A 




FLDi 


30 


I 


OOOiOA 




FLD2 


6 


I 


OOOiiA 




FLD3 


30 


I 


00012A 




FLD4 


i 


I 


00013A 




R DETAIL 






00014A 




FLD5 


6 




00015A 




FLD6 


30 




00016A 




FLD7 


5 


01 


00017A 




FLDB 


5 


21 


00018A 




F FINAL 


55 




00019A 




R OUTPUT 






00020A 




FLDi 






00021A 




FLD5 






00022A 




FLD7 






00023A 




FLDB 






00024A 




FLD9 






00025A 




F EXMP 


67 




00026C 




OUT 


BEGSR 




00027C 




FLD7 


MULT FLD8 _ 


00028C 






WRITEOUTPUTl 


00029C 






ENDSR 





****************************** 

DE/RPG USER'S GUIDE * 

****************************** 
TFILE(EXMP) 
E2 
Ei 
DEVICE(CRT) I)SPSJ.Z<6 80) 

PMT( ENTER CUSTOMER NAME) 
PMT( ENTER CUSTOMER*) 
PMT( ENTER ADDRESS) 
INSERT ( 'H' ) 

PMT( ENTER ITEM*) 
PMT(ENTER DESCRIPTION) 
PMT( ENTER QUANT PURCHASED) 
PMT( ENTER PRICE) EXSR(OUT) 
DEVICE (DISK Di) 



DEVICE<DISK Di) 
FLD9 D 92 




1 



FLD1 FLD2 FLD3 FLD4UFLD5 FLD6 FLD7 FLD8)) FLD5 FLD6 



3 



■E3 


■ B 




1 FLD1 FLD5 FLD7 FLD8 FLD9' 



I 



3 



Figure 6-1. A Sample Program Showing the Merging of Fields from Multiple Records in a Data-Entry Program 
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The sample program in Figure 6-2 illustrates merging fields from different 
records into one diskette record using a transaction file. The two records that 
are used to provide operator entry (HEAD1 and DET1) Q are used once each. 
After these have been completed, the record that merges fields from the 
preceding records is accessed Q. The fields are supplied in the last record by 
the insert operation Q. The operator sees the field contents, but he is not 
able to alter them in this record. If the automatic record advance function is 
inactive, the record remains on the display until the operator presses the Enter 
key. 



00001Z********************* 
00002Z* PROGRAM 45. FIGURE 
00003Z*********** ********** 
00004ZJ TRY 
OOOOljtaFiHEADi 
OOOoHPF2DETi 



0000'Q 

OOOOtttt 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

000 15 A 

000 16A 

00017A 

000 18A 

00019A 

00020A 

00021A 

00022A 



F3ALL 



IE 

IE 

IE 
INFUT 
HEAD1 
FLDi 
FLD2 
FLD3 
DETi 
FLD4 
FI...D5 
ALL 



F FINAL 



****************************************** 

6-2 IN THE DE/RPG USER'S GUIDE * 

****************************************** 

TFILE(FINAL) 
F2 WRITE (*N0) 
F3 WRITE (*N0) 
Fi 
28 DEVICE(CRT) DSPSIZ<6 80) 



PMT( ENTER FLDI) DSPATR(CS) 
PMT( ENTER FLD2) DSPATR(RI) 
PMT< ENTER FLD3) DSPATR(CS) 

PMT( ENTER FLD 4) DSPATR(RI) 
PMT( ENTER FLD5) DSPATR(CS) 

INSERT (FLD5) 
INSERT(FLDi) 
|lNSERT(FLD2) 
INSERT(FLD3) 
INSERT (FLD4) 
DEVICE<DISK Di) 



5 


21 


3 


I 


4 


I 


6 


I 


10 


I 


10 


I 


5 


21 


3 


I 


4 


I 


6 


I 


28 






ft 



FLD5 FLD1 FLD2 FLD3 FLD4UFLD5 FLD1 FLD2 FLD3 FLD4 



Figure 6-2. A Sample Showing the Merging of Fields from Multiple Records in a Data-Entry Program 
without a C-Specif ication 

It is difficult to verify this diskette record for three reasons: (1) the fields are 
not in the order in which they were entered, (2) the fields are now in one 
record rather than in the initial two records, and (3) the fields were supplied for 
the diskette record by an automatic function (INSERT) which the operator 
cannot alter. 

In addition to merging fields from various records, it is also possible to drop 
fields by simply not including them in the new record. 
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POSITIONING FIELDS WITHIN A DATA SET 

Earlier in this chapter, a description of padding a diskette record (with the 
CHECK(BY) operation) was provided. One of the reasons for padding a record 
is to ensure that a record marker is in a certain position in the diskette record. 

Using the position columns for a reformatted record, it is possible to place 
each field where you want it in a diskette record. The following sample 
program in Figure 6-3 illustrates how this is accomplished. 
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OOOOiZ 
00002Z 
00003Z 
00004Z 
00005Z 
00006Z 
00007Z 
00008Z 
00009Z 
OOOiOZ 
OOOitZ 
00012A 
000i3A 
00014A 
00015A 
00016A 
00017A 
00018A 
00019A 
00020A 
00021A 
00022A 
00023A 
00024A 
00025A 
00026A 
00027A 
00028A 
00029A 
00030A 
00031A 
00032A 
00033A 
00034A 



it*********************** 

* PROGRAM 46. FIGURE 6 
J INQUIRE 



AOIDENT 
AiMENU 

A2ITEMINF 
A3SHIPINF 



IE 

IE *POSOOOi 
E *POSOOOi 
NE 



iE 
R 
R 

F INPUT 

R I DENT 

FLDi 

FLD2 

R MENU 



FLD3 
R ITEMINF 

FLD4 

FLD5 

FLD6 

FLDA 
R SHIPINF 

FLD8 

FLD9 

FLDiO 
F LOOK 
R ITEM 

FLD6 
QFLD5 

FLD4 

FLDA 



*P0S0061 
*P0S0061 



a************************ ************** 

-3 IN THE DE/RPG USER'S GUIDE * 

*************************************** 

TFILE(LOOK) 
Ai 
'i' A2 SLNO(3) WRITE<*NO> 
'2' A3 

AO WRITE(ITEM) 
AO 
'I' A2 
'S' A3 
6i DEYICE(CRT) DSPSIZ(6 80) 



30X I 
6D I 



PMT( ENTER THE CUSTOMER'S NAME) 
PMT< ENTER THE CUSTOMER ID) 



OOOiOOl'i ENTER ITEM* AND PRICE DATA' 
0002001' 2 ENTER SHIPTO DATA' 
i I00300iCHECK(DR) 



PMT( ENTER ITEM*) 
PMT(ENTER PRICE) 
PMT( ENTER QUANTITY) 
INSERT ( 'I' ) 

PMT( ENTER NAME) 
PMT< ENTER ADDRESS) 
INSERT ( 'S' ) 
DEVICE<DISK Di) 



6 


I 




5 


21 




3 


01 




i 


I 




30 


.1 




30 


I 




1 


I 




61 






3 





010 


5 


2 


020 


6 




030 


1 




061 




FLD1 FLD2 FLD6 FLD5 FLD4 FLDA 



FLD1 FLD2\(flD8 FLD9 C 



Figure 6-3. A Sample Program Showing the Placing of Fields as Specified in a Diskette Data Set 

This sample program is one that was used earlier in the manual. Previously the 
CHECK(BY) operation had been used to position the record mark (I) in the 
proper location. This time you reposition the fields to place the record mark in 
the correct location. 

Notice that the reformatted field descriptions use the position columns Q. 
When an entry is contained in a reformatted diskette field description, the 
result is the placement of the field in the record beginning at the position 
number. For example, FLD5 begins in position 20 Q of the diskette record. 

If the position entry overlaps the field lengths, the field positions are overlayed. 
For example, if FLD6 were 20 positions long, began in position 10, and was 
followed by FLD5 which started in position 20, the last 10 positions of FLD6 
would be overlayed by the first 10 positions of FLD5. 

This concludes the chapter on formatting. Related topics are Access Methods in 
Part 4 and Creating Data Sets in Part 2. 
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CONVERTING NUMERIC DATA 

Numeric Data Formats 

Numeric data on a diskette file may be in zoned decimal, packed decimal, or binary 
format. To have DE/RPG convert data from one format to another format, use the 
Data Type column on a field description line. 

Figure 6-4 shows how a record containing packed and binary data can be converted 
to a record containing only zoned fields. Chaper 10 of the IBM 5280 DE/RPG 
Reference Manual contains detailed descriptions of zoned decimal, packed decimal, 
and binary data formats. 



0000 iZ** 
00002Z* 
00003Z** 
00004ZJ 



00005:. 

00006A 
00007 A 
00008A 
00009A 
000 iOA 
OOOi iA 
000 i2A 
000 i3A 
00014A 
000 15 A 
00016A 
00017A 
OOOiSA 
00019A 
00020A 
00021C 
00022C 
00023C 
00024C 
00025C 
00026C 
00027C 
00028C 
00029C 
00030C 



* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft * * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

PROGRAM 82, FIGURE 6-4 IN THE DE/RPG USER'S GUIDE * 

* * ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft * * ft ft ft * * ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft 

EXPAND 

EG J 
DEVICE (CRT) 



XI MA IN 



01 



it.. 
CRT 
MSGGC 



R MSGEND 

F IN80 
R INREC 
DATAi 
DATA2 
DAT A3 
F 0UT80 
R OUTREC 
DATAi 
DATA2 
DATA3 
MAIN 

LOOP 



DONE 



80 

10 
?P 
5B 

80 



BEGSR 

EXFMTMSGGO 
TAG 

READ INREC 
GOTO DONE 
WRITEOUTREC 
GOTO LOOP- 
TAG 

EXFMTMSGEND 
ENDSR 



2 'EXPAND PROGRAM IN PROCESS 

i ' E X P A N D P R G R AM COM P L E T E ' 
DEVICE (DISK Di) 



DEVICE (DISK D2> 



01 



Figure 6-4. A Sample Program Showing How to Convert Numeric Data 



The input data records have the following format: 



Bytes 1-10 


Datal 


Zoned 


Bytes 11-15 


Data2 


Packed 


Bytes 16-19 


Data3 


Binary 


Bytes 20-80 


unused 





The output data records have the following format: 



Bytes 1-10 


Datal 


Zoned 


Bytes 11-19 


Data2 


Zoned 


Bytes 20-24 


Data3 


Zoned 


Bytes 25-80 


unused 
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Part 3. Using Indicators 



This part of the manual contains information about using indicators to condition 
operations for data-entry and application programs. It consists of two 
chapters: 

• Chapter 7. Using Indicators in Data-Entry Programs 

• Chapter 8. Using Indicators in Application Programs 

In general terms, indicators are flags that condition program functions. In 
DE/RPG, indicators are denoted by numbers 01 through 99; they allow you to 
program automatically conditioned operations. Indicators can be both set and 
used on either the A- or C-specifications. As the name indicator implies, they have 
two conditions: off and on. To be set on, a test on a conditioning operation must 
be successfully made or a SETON operation must be specified. A conditioning 
failing operation or a SETOF operation sets the indicator off. 

The condition of the indicator (off or on) determines the actions that can be 
accomplished against the field using the indicator. To understand how this 
works, look at the following sample. 

0000 1Z*********** ************************************ **************** 
00002Z* PROGRAM 47. FIGURE 7-i IN THE DE/RPG USER'S GUIDE * 

00003Z************** ****************** ******************************* 
00004ZJ INDIC 

Ai URITE(*N0) 
DEVICE (CRT) DSPSIZ(6 80) 

PMT( ENTER THE GROSS AMOUNT) 
C0MP(GT 800.00 01) 
AUXDUP< GROSS) 
CHECK(BY) 
INSERT(TEMP*i.5) 

Figure 7-1. A Sample Program Showing Setting an Indicator on the A-Specification 



00006A 




F 


INPUT 


20 




00007A 




R 


START 






00008A 






GROSS 


5 


21 


00009A 












OOOiOA 






TEMP 


5 


21 


OOOiiA 


01 










00012A 






CALC 


5 


2.1 


00013 
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Suppose that every time the pay amount for an employee exceeds $800.00, 
you want to multiply the gross amount by 1 .5. You would use a compare 
function as shown in the sample to determine when the gross exceeds 800.00. 
When the gross does exceed 800.00, indicator 01 is turned on. When the 
Auto Dup function is active, the gross amount is duplicated in a field which is 
multiplied by 1.5; otherwise, it is not duplicated and the amount in the field 
named CALC is 0. 

This sample is for a data-entry program. Additional samples for data-entry 
and application programs are included in the following chapters. 
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Chapter 7. Using Indicators for Data-Entry Programs 



There are two uses for indicators: conditioning the indicators (setting them on 
or off) and conditioning an operation with the indicators. In other words, to ' 
use indicators effectively, there must be some action that either sets them on 
or off and there must be a succeeding action that is performed or not 
performed based on the condition (on or off) of the indicator. 

The act of setting indicators on or off is called conditioning. The actions that 
affect the state of the indicators are called conditioning operations. 
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Indicators on the A-specification can only be set on by a successful compare 
operation or by using the SETON keyword. The sample in Figure 7-2 
illustrates one method for setting an indicator on and another for setting it off. 

oooon** ************************************** *********************** 
00002Z* PROGRAM 48. FIGURE 7-2 IN THE DE/RPG USER'S GUIDE * 

00003Z********** **************************** ************************** 

00004ZJ INDEX 

00005Z HORECt IE WRITE(*NO> SLN0<2) 

00006A F DISPEX 6 DEUICE(CRT) DSPSIZ(6 80) 

00007A R RECi 

00008A 000i™< 'GROSS AMOUNT PATH ' 

00009A GROSS 6 0I00lHc0MP(GT 800 01)lcl 

OOOioOoi _ERR0R(0i 'GROSS IS TOO LARGE 1 )| 

OOOiiA *RTN ElSETOF(Ol) 

00012 



0006-9801-N Oi 40 OOOOOi 
GROSS AMOUNT PAID 801 



GROSS IS TOO LARGE 



I 



J 



Figure 7-2. A Sample Program Showing the Use of Indicators to Write an Error Message 

In this sample, the indicator Q is being set on whenever the amount an 
employee earns is greater than 800. The operation that conditions the indicator 
is a compare Q similar to the one in Figure 7-1. Whenever the indicator is set 
on Q, it conditions an operation that sets an error condition Q. Once the 
error condition has been reset, the indicator is set off by the SETOF keyword 



The program in Figure 7-2 allows you to determine that you do not want the 
entry to exceed a specified amount. In this sample, the amount is 800. Every 
time an entry exceeding 800 occurs, the operator sees a 4-digit error code 
(98xx) flashing on the status line Q. To display the text for the error 
message, he must press the Help key while the error is flashing. The text for 
the error message appears approximately midway on the status line. 

Only two operations can be conditioned by indicators on the A-specification: 
bypassing a field and writing an error message. The sample in Figure 7-1 illustrates 
a program that uses an indicator in a data-entry program to condition a field and 
the sample in Figure 7-2 illustrates a program that uses an indicator to write an 
error message. 
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The sample in Figure 7-3 illustrates a typical payroll data-entry program in 
which indicators might be used effectively both to bypass fields and to write 
errors. 



00001Z********************* 


00002Z* 


PROGRAM 


49. FIGURE 


00003Z***** **************** 


00004ZJ 


INDICAT 


00005Z 


ZiRECEX 


NE 


00006Z 




R 


00007A 




F DISPLAY 


00008A 




R RECEX 


00009A 






OOOiOA 






OOOiiA 






00012A 






00013A 






00014A 






00015A 






00016A 






00017A 






00018A 




TOT 


00019A 






00020A 


ii 




00021A 




OVER 


00022A 






00023A 






00024A 




SICK 


00025A 






00026A 






00027A 




HOI- 


00028A 






00029A 




TEMPI 


00030A 


12 




00031A 




TEMP2 


00032A 


13 




00033A 




TEMP3 


00034A 


14 




00035A 




HOUR- 


00036A 




BASE 


00037A 




OVERTI 


00038A 




SICKTI 


00039A 




HOLTI 


00O4OA 




GROSS 


00041A 






00042A 






00043A 




F PAYEX 



*******M«*tttf*K*Mtt**««ft*«ft**«*****K*Ktf***tttf 

7-3 IN THE DE/RPG USER'S GUIDE * 

****************************************** 

TFILE(PAYEX) 
Zi 
Zl 
60 DEVICE(CRT) DSPSIZ<6 80) 



0001001' TOTAL HOURS: * 
0001020' OVERTIME HOURS:' 
0001041' SICK HOURS: ' 
0001059 'HOLIDAY HOURS:' 
0003001' HOURLY RATE- ' 
0003020 'BASE PAY: ' 
0003041' OVERTIME PAY:' 
0004001 'SICK PAY: ' 
0004020' HOLIDAY PAY: ' 
1I001014DSPATR(UL) CHECK(ME RZ) 
COMP(EQ 11) 

ERROR < 30 'YOU MUST ENTER THE HOURS') 
II 1 36DSPATR(UL) __ 
CHECK (FE RZ)U 
QCOMP(EQ 12) 
1I001052DSPATR(UL) «_ 
__CHECK(FE RZ)|J 
QC0MP(EQ 13) 
1I001074DSPATR(UL) CHECK<FE RZ) 

HC0MP(EQ 14) 
21 5 iPMT(ENTER OVERTIME RATE) 

CHECK (BY) 
21 5 10PMT(ENTER SICK PAY RATE) 

CHECK ( BY ) 
21 5 20PMT< ENTER HOLIDAY RATE) 

CHECK (BY) 
2I003016CHECK(DR) DSPATR(UL) 
2I003'vgAINSERT(H0UR«T0T) DSPATR(UL) 
21003 HlNSERT(TEMPl«OVER) DSPATR(UL) mm 
2I0040JM INSERT (TEMP2*SICK) DSPATR(UL) Q 
2I004M INSERT (TEHP3»H0L) DSPATR(UL) 
2I004060INSERT(BASE+OVERTI+SICKTI+HOLTI) 
BlSETOF(ii) SET0F(12) 
*"SET0F(i3) SET0F(14) 
DEVICE(DISK Di) 



60 



Figure 7-3. A Sample Program Showing the Complex Use of Indicators on the A-Specification 

This program is prompting the operator for data about the hours an employee 
works. If the operator enters any nonzero value Q in the overtime hours Q, 
sick hours Q, or holiday hours fields Q, the program automatically provides a 
corresponding calculation £| B> ar, d B tnat determines the correct amount 
of pay. 
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If the operator does not enter anything in the field, it is filled with zeros. The 
CHECK(RZ) Q operation ensures this so that an accurate test can be made 
against the fields. Notice that a SETOF £ operation is specified for each 
indicator. If the indicators are not reset, they remain on for the next record. 
When SETOF is used, the operator must be careful about using the backspace 
function. The condition of the indicators might may not be accurate. Using the 
rerun mode at the conclusion of the entry operation is one way to ensure 
accurate calculations and totals. 

In conclusion, there are two things to remember when using indicators on the 
A-specification: 

1 . Successful tests turn indicators on. 

2. When an indicator is on, either the field is bypassed or an error message 
is displayed. 
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Chapter 8. Using Indicators for Application Programs 



Indicators can be set in a variety of ways on the C-specification. The resulting 
indicator columns (54 through 59) determine the status of the operation that 
sets the indicator on. For example, these columns set indicators to signify that 
an arithmetic calculation has resulted in a positive, negative or zero result or 
that the end of the file has been reached on a READ operation. The same 
columns are also used by the compare operands to indicate that the result of a 
compare operation is high^ low, or equal to the field being compared. Some 
I/O operations (such as READ) require a resulting indicator. The DE/RPG 
Reference Manual provides detailed information about conditioning indicators 
and about operations conditioned by indicators. 
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OPERATIONS THAT SET INDICATORS AND OPERATIONS CONDITIONED BY 
INDICATORS 

The following chart lists the operations that set indicators and the operations 
that are conditioned by indicators: 

Operations that Set Operations Conditioned by 
Indicators Indicators 



ADD 


All except 


Z-ADD 


TAG 


SUB 


ENDSR 


MULT 


BEGSR 


DIV 




MVR 




GOMP 




CAB 




CABEQ 




CABNE 




CABLE 




CABLT 




CABGE 




CABGT 




TESTB 




LOKUP 




READ 




READP 




CHAIN 




WRITE 




DELET 




SETLL 




OPEN 




CLOSE 




SETON 




UPDAT 




SETOF 




Z-SUB 




OPEN 





The operations that set indicators on the C-specifications fall into three general 
categories: I/O operations, arithmetic operations, and branching operations. 
Examples of conditioning each of these types of operations are included in this 
chapter. 
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A SAMPLE OF USING INDICATORS WITH I/O OPERATIONS 

Some of the I/O operations that set indicators are: 

• Reading the last record in a data set 

• Performing a chain operation when no record with the specified key exists 
in the data set 
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The sample in Figure 8-1 illustrates a simple program that uses indicators for 
I/O operations. 



00001 


Z«*ft*****««*tt*«***fttf«« 


00002 


Z* 


PROGRAM 50. FIGURE 


00003 


Z****#**************** 


00004 


ZJ 


EXPLIND 




00005 


Z AiBEGIN 




IE 


00006 


A 




F 


ITMAST 


00007 


A 




R 


ITEM 


00008 


A 




K 


CUSTN 


00009 


A 






ITEM* 


OOOiO 


A 






QUANT 


OOOii 


A 






PERPRI 


O0012 


A 






COST 


00013 


A 




F 


DISP 


00014 


A 




R 


LOOK 


00015 


A 






NUMBER 


00016 


A 




R 


OK 


00017 


A 






CUST* 


00018 


A 






ITEM1 


00019 


A 






QUANT 1 


OO020 


A 






PERPRi 


00021 


A 






COSTi 


00022 


C 






BEGIN 


00023 


C 






BRANCH 


00024 


C 








O0025 


C 




B 


DUMBER 


00026 


B 


NO! 




00027 


c 




N05 


a 


00O28 


c 







Mft«»«««tf«»ft«tt«ftttMft»ft««»«««ft*«*«*tttt*ft#tf«ftfttt« 

8-i FOR THE DE/RPG USER'S GUIDE # 



25 

4 

6 
4 
5 
6 
25 



EOJ 
DEVICECDISK Dl) 



BEGSR 

TAG 

EXFMTLOOK 

CHAINITEM 

EXFMTOK 

GOTO BRANCH 

ENDSR 



DEVICE(CRT) DSPSIZ(6 80) 

|PMT< ENTER THE NUMBER) 

INSERT<CUSTN) 
INSERT<ITEM#) 
INSERT < QUANT) 
INSERT (PERPRI) 
INSERT(COST) 



0105 



0001 A 40 
ENTER THE NUMBER 
AAA2 



I 



J 




AAA1 



AAA2 



CUSTN ITEM QUANT PERPRI COST \\ CUSTN ITEM 



I 



3 



Figure 8-1 (Part 1 of 2). A Sample Program that Uses Indicators with I/O Operations 
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OOOi A 40 
AAA2584200002000010000200 



t 



Figure 8-1 (Part 2 of 2). A Sample Program that Uses Indicators with I/O Operations 

This program prompts the operator for an identification number Q . When the 
operator enters the number, the program exits to the C-specification and uses 
the number to locate the corresponding record on the diskette data set Q. 
When a record with a matching identification value is found, indicator 01 is off 
and a display appears containing the value of the fields in that record Q. 
When no matching record is found, indicator 01 is on Q and a display 
appears containing the prompt for another identification number Q. 

This process continues until the operator uses the End of Job key or until the last record 
is reached. 

The sample in Figure 8-2 expands the program from Figure 8-1. 



J 
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0000 iZ**** ************* ****** ********* ******************************* 


00002Z* 


PROGRAM 


51. FIGURE 8-2 


IN 


THE 


DE/RPG USER'S GUIDE * 


00003Z****************** ************************** ******************** 


00004ZJ 


EXPLINE 


) 










00005Z i 


MBEGIN 


IE 








EOJ 


00006A 






F DISP 




7 




DEMICE(CRT) DSPSIZ(6 80) 


00007A 






R ONE 










00008A 






NUMBER 




6 


I 


PMT( ENTER THE NUM*££ ID) 


00009A 




D 


R LOOK 








B 


00010A 






ITEMNU 




6 


I 


_-PMT(ENTER THE ITEM Nlh IF CHGD.) 
QpMT( ENTER X FOR LAST ONE) DSPATR(RI) 


OOOiiA 






FLDX 




i 


I 


00012 A 






F ITMASTi 




27 




DEVICE(DISK Di) 


000 13A 






R ITEM 










000 14A 






K CUSTN 




6 






00015A 






ITEMNU 




6 






000 16A 






QUANT 




4 






00017A 






PERPRI 




5 






000 18A 






COST 




6 






00019C 






BEGIN 


BEGSR 








00020C 






BRANCH 


TAG 








00021C 








EXFMTONE 






00022C 




Q NUMBER 


CHAIN ITEM 




01 


00023C 


NOi 






EXFMTLOGK 






00024C 


NOi 




B 


lUPDATITEM 






00025C 






FLDX 


COMP 


'X' 




09 


00026Cfl09 






GOTO 


END 






00027C 








GOTO 


BRANCH 




00028C 






END 


ENDSR 









Figure 8-2. A Sample Program Showing Multiple Use of Indicators for I/O Operations 

This program does not display fields Q from the record that matches the 
identification provided by the operator Q, but it does allow the operator to 
alter the value of a field in the matching record Q. Only the fields for records 
with matching identifiers are displayed. The operator terminates the program 
with an entry in a field on the display Q. An indicator controls this function 



A SAMPLE OF USING INDICATORS WITH ARITHMETIC OPERATIONS 

Some of the arithmetic operations that condition indicators are: 

• A positive result for an arithmetic operation 

• A negative result for an arithmetic operation 

• A zero result for an arithmetic operation 

The samples in Figures 8-3 and 8-4 illustrate using indicators with arithmetic 
operations to set and use indicators. 
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0000 1Z*************************************************************** 
00002Z* PROGRAM 52. FIGURE 8-3 IN THE DE/RPG USER'S GUIDE * 
00003Z****************************«***w****************************** 
00004ZJ EXPLIND n 

EOJli 
DEVICE(CRT) DSPSIZ<6 80) 

BPMT< ENTER THE BEGINNING NUMBER) 

PMT<WARNING. THE VALUE IS 0) 
DEVICE<DISK Di) 



00005Z AiBEGIN 




IE 








00006A 


F 


DISP 






6 


00007A 


R 


LOOK 








00008A 




NUMBER 




6 I 


00009A 


R 


MSG 








OOOiOA 










i I 


OOOiiA 


F 


ITMAST7 




27 


00012A 


R 


ITEM 








00013A 


K 


CUSTN 






6 


00014A 




ITEM 






6 


00015A 




QUANT 






4 


00016A 




PERPR] 






5 


00017A 




COST 






6 2 


00018A 


F 


OTTER 






15 


00019A 


D 


,EXMPB 








00020A 


1 INTER 






15 2 


00021C 


BEGIN 




BEGSR 


00022C 






D 


EXFMTLOOK 


00023C 1 


N05NUMBER| 


CHAINITEM 


00024L- 
00025«|N0i 


BRANCH 


m 


.TAG 








Iz-addcostRJ 


0002&r^_ 02 
00027i£|N0i 








EXFMTMSG 






n 


IWRITEEXMPB 


00028C NOi 






'read 


ITEM 


00029lBlN05N01 








goto 


BRANCH 


00030U 








ENDSF 


J 



DEVICECDISK Dl ) 



01 



INTER 152 



02 



05 




ITMAST7 



00BB2 



S 



CUSTN ITEM QUANT PERPR I COST\\CUSTN ITEM QUANT PERPRI COST 



I 




Cost of 
00BB2 



OTTER 



INTER (( INTER (( INTER (( INTER (j INTER ...( 



Figure 8-3. A Sample Program Showing the Use of Indicators with Arithmetic Operations 



This program is creating a new data set that contains a field Q from each 
record in the original data set beginning with the record that matches the 
identifier entered by the operator and ending with the last record. The program 
prompts the operator for an identification value Q. It uses this value to locate 
the beginning record in the data set Q. When a matching record is found, the 
program takes a field from the record Q, adds it to zero Q, and writes it out 
to the new data set Q. When the last record is reached, the program 
automatically terminates Q. Indicators control when fields are added to zero 
Q, when they are written in the new data set Q, and when the program 
terminates 
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The program in Figure 8-4 is another version of the program in Figure 8-3. 



00001 


Z* ************************************* ************************ 


00002 


Z* 


PROGRAM 


53- FIGURE 8- 


•4 IN THE 


DE/RPG USER'S GUIDE 


00003 


Z***** ****** tt*ttKtttttt**«fttt*M*Wtt«tt»tt«tt*tt***tt«tt***tt«*«******tt**tf**tt 


00004 


ZJ 


EXPLIND 








00005 


Z 1 


UBEGIN 


1E 






EOJ 


00006 


A 




F DISP 




7 


DEVICE(CRT) DSPSIZ(6 80) 


00007 


A 




R LOOK 








00008 


A 




NUMBER 




6 I 


PMT( ENTER THE NUMBER ID) 


00009 


A 




F ITMASTF 




27 


DEVICE<DISK Di) 


OOOiO 


A 




R ITEM 








OOOii 


A 




K CUSTN 




6 


1 


00012 


A 




ITEM* 




6 




00013 


A 




QUANT 




4 




00014 


A 




PERPRI 




5 




00015 


A 




COST 




6 2 




00016 


A 




F OUTGO 




15 


DEVICE<DISK Dl) 


00017 


A 




R LAST 








00018 


A 




INTER 




15 2 




00019 


C 




BEGIN 


BEGSR 




00020 


C 




AGAIN 


TAG 






00021 


C 






EXFMTLOOK 




00022 


C 




NUMBER 


CHAIN ITEM 


02 


00023 


C 


02 




GOTO 


AGAIN 




00024 


C 






Z-ADDCOST 


INTER 152 03 


00025 


C 




BRANCH 


TAG 






00026 


C 


HnOSN' 




READ 


ITEM 


05 Q 


00027 


C 


D3C0ST 


ADD 


INTER 


INTER 


00028 


(RN05 




GOTO 


BRANCH 




00029 


(J 




QWRITELAST 




00030 


C 




END 


ENDSR 






Entered by 

Operator 

00CCC1 






End of 
Data Set 



CUSTN ITEM QUANT PERPRI COST H CUSTN ITEM QUANT PERPRI COST 



J 




Field containing total 
amount of all cost fields 
from 00CCC1 to the end of 
the data set- 



INTER 



IP 



Figure 8-4. A Sample Program Showing the Use of Indicators to Accumulate a Batch Total 

In Figure 8-4, the program is accumulating an online total of fields in the 
original data set beginning with the record specified by the operator's identifier 
and ending with the last record in the data set. The new data set that is 
written, contains one field which represents the total value of the fields that 
have been read from the original records. 

In this sample, indicators are being used to condition arithmetic operations Q 
branching Q, writing to the new data set R, and program termination Q. 
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A SAMPLE OF USING INDICATORS WITH BRANCHING OPERATIONS 

Some of the branching operations that condition indicators are: 

• The value in Factor 1 is greater than the value in Factor 2. 

• The value in Factor 1 is less than the value in Factor 2. 

• The value in Factor 1 is equal to the value in Factor 2. 

The sample in Figure 8-5 illustrates using compare operations with indicators. 



00001Z********************* 
00002Z*PR0GRAM 54. FIGURE 
00003Z********************* 
00004ZJ EXPLIND 
00005Z AiBEGIN IE 



K«*K*ft*******K***«**ffftfttt**K«*****ft*tf«***«tfffK*tf*« 

8-5 IN THE DE/RPG USER'S GUIDE * 

a********************************************** 



EOJ 



00006A 


F 


DISP 




16 


DEVICE(CRT) DSPSIZ<6 80) 


00007A 


R 


LOOK 








00008A 




NUMBER 




6 I 


PMT<ENTER THE FIRST NUMBER) 


00009A 




NUMB2 




6 I 


PMT<ENTER THE LAST NUMBER) 


00010A 


R 


DONE 








00011A 








15 21 


INSERT < INTER) 


00012A 








1 ' I 


PMTCTHIS IS THE INTER RESULT. + 


00012A 










PRESS ENTER TO CONTINUE) 


00013A 


R 


TEST1 








00014A 








6 I 


INSERT (CUSTN) 


00015A 








6 I 


INSERT (NUMBER) 


00016A 








1 I 


PMT(FIRST IS CUSTN THEN NUMBER) 


00017A 


R 


TEST2 








00018A 








15 21 


INSERT< INTER) 


00019A 








1 I 


PMT<THIS IS INTER WHEN ADDED TO + 


00019A 










COST) 


00020A 


F 


ITMAST 




27 


DEvTCE<DISK Dl) 


00021A 


R 


ITEM 








00022A 


K 


CUSTN 




6 




00023A 




ITEM 




6 




00024A 




QUANT 




4 




00025A 




PERPRI 




5 




0002AA 




COST 




6 2 




00027C 




BEGIN 


BEGSR 




00028C 




HERE 


TAG 






00029C 






EXFMTLOOK 




00030C 


N05NUMBER 


CHAINITEM 


01 


00031C NOi 






Z-ADDCOST 


INTER 152 02 


00032C 






EXFMTDONE 




00033C 




NEXT 


TAG 






Q0034C 


NOI 




READ 


ITEM 


05 


00035Cll05 






GOTO 


END 




00036C 


N01NUMB2 


COMP 


CUSTN 


0303 


00037C 






EXFMTTESTi 




00038C N01N02C0ST 


ADD 


INTER 


INTER 


00039C— . 
00040CHI 03 






EXFMTTEST2 








GOTO 


NEXT 




00041QN03 
00042C*" 






GOTO 


HERE 






END 


ENDSR 




00043 













Figure 8-6. A Sample Program Showing the Uaa of Indicators with Compare Operations 

This program illustrates the use of indicators to control multiple branching 
operations within a single program. Based upon the condition of the various 
indicators, the program returns to one of three points in the program Q, Q, 
Q. The formats for the display (reached when the EXFMT occurs), provide a 
way of tracking the program to determine which branch has been taken. 
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COMPLEX USE OF INDICATORS ON THE C-SPECIFICATIONS 

The sample in Figure 8-6 illustrates a complex application for using indicators on 
the C-specification. 



00001Z*** ****************** 
00002Z* PROGRAM 55. FIGURE 
00003Z********************* 
00004ZJ INDEMPL 



*************** 

8-6 IN THE 

*************** 



00005Z 


AiSUBEX 


IE 








00006A 


F 


INPUTER 




2^ 


00007A 


R 


EXOFREC 






00008A 




NUMBER 




6 I 


00009A 




TOTAL 






15 21 


00009A 












OOOiOA 


R 


OUT 








00011A 













OOOi 1 A 












00012A 










1 I 


00013A 












00014A 


R 


TELL 








00015A 













000 16A 










1 I 


000 17A 


F 


INVMAST 




36 


000 18A 


R 


BILMAST 






00019A 


K 


CUSTNO 




6 


00020A 




ITEM 






6 


00021A 




QUANT 






4 


00022A 




PERPRI 




5 


00023A 




COST 






15 2 


00024C 




SUBEX 




BEGSR 


00025C 




START 




TAG 




00026C 


B 






EXFMTEXOFREC 


00027C 


NUMBER 




CHAINBILMAST 


00028C 


Qoi 






EXFMTOUT 


00029C 


01 




B 


GOTO 


START 


00030C 


D 


TOTAL 




SUB 


COST 


0003 1C 


NEXT 


Q 


TAG 




00032C 






READ 


BILMAST 


00033C 




OUST NO 




COMP 


•999999 


00034C 


04 05 




ED 

KB 


GOTO 


END 


00035C 


02 




GOTO 


ERROR 


00036C 


N03N04 




GOTO 


ERROR 


00037C 


___ 03N04 

03 






GOTO 


START 


00038C 


INTER 




SUB 


COST 


00039C 


N02 




na 


GOTO 


NEXT 


00040C 




ERROR 




TAG 




00041C 








EXFMTTELL 


00042C 








GOTO 


START 


00043C 




END 




TAG 




00044C 








ENDSR 



*************** 

DE/RPG USER'S GUIDE * 

******************************** 

EOJ 
DEVICE(CRT) DSPSIZ(6 80) 

BpMTC ENTER THE CUSTOMER NUMBER) 
apMKENTER THE MATCHING TOTAL FROM T + 
HE ACCOUNTING BOOKS) 

'THERE IS NO RECORD FOR THIS CUSTOM+ 

ER' 

PMT(USE THE FLD EXIT KEY) 

CHECK (FE) 

'THE TOTALS DO NOT TALLY' 

PMT(USE THE FLD EXIT KEY) CHECK(FE) 

DEVICE(DISK Dl) 



01 



INTER 152 0203M 



05 DEI 
04 |Q 



m 



INTER 



0203 



Figure 8-6. A Sample Program Showing the Complex Use of Indicators 
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The object of this program is to determine whether the monthly billing data set 
maintained for the customers equals the monthly total in the accounting books. 
The following list shows the elements involved in using the program in Figure 
8-6. 

The flow of the program is as follows: 

1. The operator is prompted to enter the customer ID Q and the total Q 
from the accounting books. 

2. The program finds the first record in the data set that matches the 
customer ID Q. 

Note: If there is no matching record, the program sets an indicator that 
conditions the operation that displays an error message Q, and prompts 
the operator for the next customer information Q. 

3. The program then subtracts the total in the record from the total entered 
by the operator Q. It places the results in a newly created field Q. If 
the results of the calculation are zero or negative, it sets the appropriate 
indicator Q. 

4. The program then reads the next record in the data set Q. (If it is the 
last record in the data set, it sets an indicator Q and conditions an 
operation that ends the subroutine QQ.) 

5. The program compares the identification numbers of the last record and the 
ID entered by the operator. If the numbers match, the program sets an 
indicator 



The program checks for invalid combinations and if it finds one, branches 
to an error routine within the subroutine 



7. If the result of the previous calculation was not zero and this record 
matches the entered ID Q, the program subtracts the total in this 
record from the field created in the previous calculation and then puts the 
new results in the temporary field 



8. The program branches back to the read operation Qg and begins the 
process again. When the results are zero and the last record with a 
matching ID has been found, the program returns to the beginning of the 
routine and prompts the operator for another number. 

This process of reading a record and performing a calculation against the 
record continues until the operator uses the End of Job key, or the end of the 
data set is reached. As you can see in this one sample, a variety of operations 
can be used to set indicators and a variety of operations can be conditioned by 
indicators. 
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Part 4. Access Methods 



This part describes the various ways that you can retrieve data from diskette 
data sets. 

It contains two chapters: 

• Chapter 9. Sequential Access Methods 

• Chapter 10. Direct Access Methods 

The organization of the data set determines the access method that can be 
used. The sample in Figure 9-1 illustrates the types of organization and access 
methods available with DE/RPG. 

The DE/RPG compiler uses the C-specification operations (such as READ, 
WRITE, CHAIN, and UPDAT) to determine if the diskette data set is to be 
created, added to, updated, or read. For example, if only WRITE statements 
appear for a data set, the data set is recreated if it already exists; in other 
words, it is rewritten beginning with the first record. Therefore, if you want to 
add records to an existing data set without completely rewriting it, you must 
include a READ operation for the data set in the subroutine. The READ 
operation does not have to be executed; it simply indicates that the data set 
^.glready exists. 
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1. The data set is sequential. 




12 3 4 5 6 



A B C D E F 



12 3 4 5 6 



7 



UCan be accessed sequentially. 

13 Can be accessed directly by relative record number. 

QCan be accessed directly by key if the field specified 

as the key occurs in ascending sequence in the data 

set when it is accessed. 

2. The data set organization is by key sequence. 




A B C D E F 



12 3 4 5 6 

■•Can be accessed sequentially by key. 

El Can be accessed directly by key. 

QCan be accessed directly by relative record number 

if a key field is not specified for the data set when 

it is accessed. 



3. The data set organization is sequential by key and with 
an index. 



15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 


SUB1 BEGSR 


D READ REC 


B 5 CHAINREC 


B KEY CHAINREC 


ENQS3 




SU82 BEGSR 


Ql BEAD RE2 


B KEY CHAI^BEC 


D 5 CHAINREC 


ENDSR 






SUB3 SEQSR 


T BiTREAD REC 


B KEY CHAINREC 


B 5 CHAINREC 


T ENDSR 


_J_ 1 




E C F B A 



EI 



12 3 4 5 6 




MCan be accessed sequentially by key. 

UCan be accessed directly by key. 

QCan be accessed directly by relative record number 

if a key field is not specified for the data set when 

it is accessed. 

Figure 9-1 . Types of Access Methods Available with DE/RPG 
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Before beginning the topics of direct and sequential access methods, there is 
one additional consideration concerning the general topic of access 
methods-that is, the accessing of multivolume data sets. A multivolume data 
set is one that is resident on more than one diskette. An example of this might 
be a data set that contains information about the items your business sells. A 
single diskette might not be large enough to hold all of this information, so you 
must continue the data set onto another diskette. 
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The sample in Figure 9-2 illustrates a program that reads from multivolume 
data sets and writes a single multivolume data set on the diskette. 



OOOOiZ* 

888851: 

00004ZJ 
00005Z SiROUT 
00006A 
00007A 

8888P8 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A 

00027A 

00028A 

00029C 

00030C 

00031C 

00032C 

00033C NOi 

00034C NOi 

00035C 



************************************************************** 

PROGRAM 56. FIGURE 9-2 IN THE DE/RPG USER'S GUIDE * 

************************************************************** 

MULTVOL 



IE 
ONE 
EXi 
FLDi 
FLD2 
FLD3 
FLD4 
FLD5 
TWO 
EX2 
FLD6 
FLD7 
FLD8 
OUTPUT 



R REiX 

K FLDi 

FLD2 

FLD3 

FLD4 

FLD5 

FLD6 

FLD7 

FLD8 

ROUT 

LOOP 



50 

iO 
10 
iO 
iO 
iO 
50 

20 

20 

iO 

iOO 



no: 
no: 



BEGSR 
TAG 

READ EXi 
READ EX2 
WRITEREiX 
GOTO LOOP 
ENDSR 



EOJ 
DEVICE(DISK Di Di) 



DEVICE(DISK D2 D2) 



DEVICE(DISK D3 D4) 
INDEX(CHECK) 



Oi 
02 



Figure 9-2 (Part 1 of 2). A Sample Program Showing the Use of Multivolume Data Sets 
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ONE 





TWO 





On drive 
D2 



OUTPUT 





Figure 9-2 (Part 2 of 2). A Sample Program Showing the Use of Multh/olume Data 
Sets 
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In this sample, the data set named ONE is read first Q. The D1 D1 
parameters of the DISK keyword Q declare this data set as multivolume. By 
specifying D1 D1 (the same drive), the programmer is indicating that the 
operator removes the first diskette from the drive as needed and replaces it 
with the second diskette. In this case, the operator sees only one open prompt 
for the date set named ONE at the beginning of the program. As the need for 
the second volume arises, the open prompt reappears, alerting the operator to 
change diskettes in the drive. 

The second data set that is read Q also contains a data set that resides on 
more than one diskette. As before, these diskettes will be used in a single 
diskette drive. Finally, the data set that is written is also a multivolume data 
set Q, The open prompts for both diskettes for the data set that is written appear 
at the beginning of the program. These data sets will use two different diskette 
drives. Both data sets, therefore, are opened at the beginning of the program. 

If you are not using logical devices (D1, D2, etc.), then the specifications for 
the drives would appear as: X'4000', X'4400', etc. 

Data sets created by transaction files are always sequentially written and 
nonkeyed or nonindexed; therefore, they can only be accessed sequentially or 
directly by a relative record number. 

Note: The one exception to this is a data set that has been entered in a 
transaction data set in key order by the operator. In this case, the data set can 
be accessed as a keyed data set. 

Data sets created by subroutines on the C-specif ications can be sequentially 
written, or written in key sequence, or indexed by key sequence; therefore, 
they can be accessed using any of these methods. 

Data sets created by using the Sort/ Merge Program Product can be organized 
sequentially, or in key sequence, or by an indexed (ADDROUT) data set; 
therefore, they can be accessed by any of these methods. 

In addition, the Sort/Merge Program Product can be used to create individual 
indexed data sets, and those can be merged into a master indexed data set. 

Review Part 1 for a description of how data sets are created by data-entry and 
application programs. See the IBM 5280 Sort/Merge Reference /Operation 
Manual, SC21-7789 for details about creating data sets using the Sort/Merge 
Program Product. 

User- programmed access to already existing data sets is through the READ or 
CHAIN operations on the C-specif ications. 
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Chapter 9. Sequential Access Methods 



The read (READ) operation on the C-specif ication provides the sequential 
access method for DE/RPG. The read operation can be used either for 
sequential or indexed data sets. Sequential (nonindexed) data sets are read in 
an ascending relative record number sequence. That is, the first record in the 
data set is read and then the next one is read and so forth. Indexed data sets 
are read sequentially by key sequence. Data sets created in key sequence are 
read sequentially by key sequence. 
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SEQUENTIAL ACCESS OF NON KEYED AND NON INDEXED DATA SETS 

The sample in Figure 9-3 illustrates the use of the read operation for accessing 
a sequentially written (nonindexed) data set. 



0000 iZ******************************************************** ******* 
00002Z* PROGRAM 57. FIGURE 9-3 IN THE DE/RPG USER'S GUIDE * 
00003Z*************************************************************** 
00004ZJ ACCESS 



00005Z 


F4SUB1 




IE 








EOJ 


00006A 




F 


MASTHEAD 




67 


DEVICE(DISK Di) 


00007A 




R 


HEADER 










00008A 






CUSNA 






30 




00009A 






ADDR 






30 




OOOiOA 






ID 






6 




OOOilA 






H 






1 




00012A 




F 


MIX 






67 


DEVICECDISK Di) 


00013A 




R 


FIRST 










00014A 






ID 










00015A 






CUSNA 










OOOiAA 






ADDR 










00017A 






H 










00018C 






sum 




BEGSR 




00019C 




I 


BO 




TAG 






00020C 








n 


|read 


HEADER 


05 


00021C 


N05 








WRITEFIRST 




00022C 


N05 








GOTO 


GO 




00023C 










ENDSR 




00024 


















HEADER4 



(\HEADER3 (\ HEADER2 ft HEADER5 ft HEADER1 ( 




HEADER4 (( HEADER3 (f HEADER2 ft HEADER5 ft HEADER1 j 
Figure 9-3. A Sample Program Showing the Sequential Access of a Nonkeyed, Nonindexed Data Set 

In this sample, the records in the data set that is being read Q are in a 
random sequence Q. The resulting data set is also written in the same 
random sequence Q because no key or index has been specified for it. 
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If the data set that is being read contains more than one record type, you 

should include the RECID operation (along with its associated indicators) to 

identify the correct record type to be processed by the program. The sample in 

Figure 9-4 illustrates this process. 

OOOOiZ*************************************************************** 
00002Z* PROGRAM 58. FIGURE 9-4 IN THE DE/RPG USER'S GUIDE * 

00003Z*************************************************************** 
00004ZJ ACCESS 



00005Z 


F4SUB1 




IE 






DEVICECDISK Di) U 


00006A 






F 


MASTBIL 




67 


00007A 




D 


R 


HEADER 






SET0F(05) SET0F<06> RECID<*P0Si 


00008A 














SET0N(05) 


00009A 








H 




i 




OOOiOA 








ID 




6 




OOOiiA 








CUSNA 




30 


□ 


00012A 








ADDR 




30 


00013A 




D 


R 


DETAIL 






RECID(*POSi 'D') SET0N(06) 


00014A 








D 




i 




00015A 








ID 




6 




00016A 








ITEM 




10 




00017A 








QUANT 




5 




00018A 








COST 




6 




00019A 






F 


IMML 




67 


DEVICECDISK Di) 


00020A 






R 


HED 








00021A 








H 








00022A 








ID 








00023A 








CUSNA 








00024A 








ADDR 








00025A 






R 


DET 








00026A 








D 








00027A 








ID 








00028A 








ITEM 








00029A 








QUANT 








00030A 








COST 








00031C 








SUBi 


BEGSR 




00032C 








BRANCH 


TAG 






00033Ci 










READ 


MASTBIL 


Oi 


00034ClSl05 


NOi 




WRITEHED 




000350^106 


NOi 




WRITEDET 




00036C 


~0i 








GOTO 


BRANCH 




00037C 










ENDSR 





H' ) 




HEADER 



(Cdetail\(detailUdetail((headerJJdetail^ 



E0SS@fE3SS 



HEAD' 
Figure 9-4. A Sample Program Showing Sequential Access of a Data Set with Multiple Record Types 

Notice that the data set being read contains two types of records (header Q 
and detail Q). All header records are identified by an H in position 1 Q and 
all detail records are identified by a D in position 1 Q. The sample program is 
specifying that every time a header record is read, a new header record is 
written B and every time a detail record is read, a new detail record is written 
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SEQUENTIAL ACCESS OF KEYED AND NONINDEXED DATA SETS 

Suppose you want to sequentially read records in a data set that is written in 
keyed sequence. The sample in Figure 9-5 illustrates this process. 



0000 iZ*************************************************************** 
00002Z* PROGRAM 59. FIGURE 9-5 IN THE DE/RPG USER'S GUIDE * 

00003Z************************ ************ *************************** 
00004ZJ ACCESS 

F4 
DEVICE(DISK) 



DEVICE<DISK Di) 



00005Z 


F4SUB1 




IE 






00006A 




F 


MASTERAD 




6? 


00007A 




R 


HEADER 






00008A 






CUSNA 




30 


00009A 






ADDR 




30 


OOOtOA 


D 


K 


ID 




6 


00011A 






H 




i 


00012A 




F 


FEL 




90 


00013A 




R 


NEW 






00015A 






CUSNA 






00016A 






ID 






00017A 






ADDR 






00018A 






H 






00019C 






SUBi 


BEGSR 


00020C 




] 


BRANCH 


TAG 




00021C 








READ 


HEADER 


00022C 


NOi 






URITENEW 


00023C 


NOi 






GOTO 


BRANCH 


00024C 








ENDSR 



Oi 




HEADE 



Ri(\HEADER2((hEADER3(\HEADER4((hEADER5J(hEADER6J 



NEWlftNEW2((NEW3((NEW4JjNEW5\(NEW6( 



Figure 9-5. A Sample Program Showing Sequential Access of a Keyed Data Set 

The data set is the same one used in Figure 9-2 but this time, it is organized 
by key sequence Q. This time, the records are read in the sequence of their 
keys and written out in key sequence (which in this case corresponds to the 
sequence of the relative record numbers because the original data set is 
organized in key sequence). Even though a key field is not specified for the 
NEW record, the data set can be used as a keyed data set if the ID field is 
referenced as the key field. This is true because the data set from which this 
one was created was in ascending key sequence and therefore the NEW data 
set is also in ascending- key sequence (via the ID field). 
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SEQUENTIAL ACCESS OF INDEXED DATA SETS 

Suppose that the data set being accessed is indexed. It is randomly organized, but 
it uses an indexed data set that is organized by key sequence. The sample in Figure 
9-6 illustrates this process. 

O000iZ***********»**#**»»*#*****K*K* *********************** *************** 
00002Z* PROGRAM 60. FIGURE 9-6 IN THE DE/RPG USER ' S GUIDE * 

00003Z******************************************************************** 
00004ZJ ACCESS3 



00005Z 


DiSUBi3 


IE 








Di |j 


00006A 




F MASTHEA4 




66 


DEVICE(DISK Di) INDEX(LOOK) 


00007A 




R HEADER 








00008A 




K ID 






6 




00009A 




CUSNA 






30 




OOOiOA 




ADDR 






30 




OOOiiA 




F TEMP8 






66 


DEVICE(DISK Di) 


00012A 




R NEW 










00013A 




ID 










00014A 




CUSNA 










00015A 




ADDR 










00016C 




SUB13 




BEGSR 




00017C 




AGAIN 


a 


TAG 






00018C 






READ 


HEADER 


05 


00019C 


N05 




a 


WRITENEW 




00020C 


N05 




GOTO 


AGAIN 




00021C 








ENDSF 


i 





HEADER5((hEADER3UHEADER2(( HEADER4JJ HEADER6 UHEADERH 



101 



102 



103 



104 



105 



106 



HEADER1/106 UHEADER2/103 ((hEADER3/102 (( HEADER4/104U HEADER5/101 ( 



tt N EW2 (( N EW3 if N EW4 (( N EW5 ( 



NEW1 
Figure 9-6. A Sample Program Showing Sequential Access of an Indexed Data Set 



The read operation is performed sequentially, but this, time it is performed 
against the indexed data set which in turn references the correct record to be 
read in the data set. With the use of the indexed data set, a data set that is 
randomly written can be accessed as if it were organized sequentially by key 
field. This improves the efficiency of first writing the records and later reading 
them. 
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Chapter 10. Direct Access Methods 



The chain operation (CHAIN) on the C -specification provides the direct access 
methods for DE/RPG. Data sets can be directly accessed in one of two ways: 
(1) by a reference to a specific relative record number or (2) by a reference to a 
specific key field value. 

DIRECT ACCESS FOR NONKEYED AND NONINDEXED DATA SETS 

Nonkeyed and nonindexed data sets can only be directly accessed by relative 
record number. The sample in Figure 10-1 illustrates this process. 



0000iZ*****************ww*ww*ww*#******#*w»***w*w*#*ww***«w**ww#*w*** 
00002Z* PROGRAM Ai. FIGURE 10-i IN THE DE/RPG USER'S GUIDE * 
00003Z************ww#**w**w*w*«w*****w****w*********www*w********ww** 
00004ZJ ACCESS 

C5 

DEVICE<DISK Di) 



DEyiCE(DISK Di) 



00005Z 


C5SUB2 


IE 






00006A 




F MASTHEAD 




66 


00007A 




R HEADER 






00008A 




ID 




6 


00009A 




CUSNA 




30 


00010A 




ADDR 




30 


OOOiiA 




F OUTPUT 




30 


00012A 




R NEW 






00013A 




CUSNA 




30 


00014C 




__SUB2 


BEGSR 


00015C 




CHAINHEADER 


00016C 




BRANCH 


TAG 




00017C 


N09 




URITENEW 


00018C 




B 


READ 


HEADER 


00019C 


N05 




GOTO 


BRANCH 


00020C 






ENDSR 



09 



05 




End of the 
Data Set 



HEADERl7HEADER2/HEADER3/HEADERyHEADERy . . . HEADERN ( 




End of the 
Data Set 



NEW5/NEW6/.. y 



NEWN 



Figure 10-1. A Sample Program Showing Direct Access of a Nonkeyed Data Set 

In this sample, factor 1 Q contains the record number that you want the 
program to read first. DE/RPG will find and read Q the record with this 
relative record number. If you want to read the records sequentially following 
this record, you must specify a READ operation Q. 
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DIRECT ACCESS FOR KEYED AND INDEXED DATA SETS 

The CHAIN operation provides direct access to keyed data sets (both indexed 
and nonindexed). The sample in Figure 10-2 illustrates the chain process. 



0000 iZ*************************************************************** 
00002Z* PROGRAM 62. FIGURE 10-2 IN THE DE/RPG USER'S GUIDE * 

00003Z************************ ********* ****************************** 
00004ZJ ACCESS2 

EOJ 
DEVICE<CRT) DSPSIZ<6 80) 

PMT(ENTER THE RECORD ID YOU WANT) 

INSERT(CUSNA) 

INSERT(ADDR) 

PMT( PRESS ENTER TO CONTINUE) 

DEVICE<DISK Di) 



00005Z 


N1SUB2 




IE 




00006A 




F 


DISP 


67 


00007A 




R 


GET 




00008A 






ID 


6 I 


00009A 


a 


R 


LOOK 




OOOiOA 




NAMEi 


30 B 


OOOiiA 






NAME2 


30 B 


00012A 








i I 


00013A 




F 


MASTHEAD 


66 


00014A 




R 


HEADER 




00015A 




K 


IDENT 


6 


00016A 






CUSNA 


30 


00017A 






ADDR 


30 


00018C 






SUB2 


BEGSR 


00019C 








EXFMTGET 


00020C 






ID 


CHAINHEADER 


00021C 








EXFMTLOOK 


00022C 








ENDSR 



Oi 



Figure 10-2 (Part 1 of 2). A Sample Program Showing Direct Access of a Keyed Data Set 
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ENTER THE RECORD YOU WANT 
889134 



I 



J 




889134 .. 



r ^ 

UHEADER2J HEADER3J\HEADER4(JhEADER5HHEADER6 ...J 



HEADER1UHEADER2 





PRESS 1 ENTER TO CONTINUE 

DAN NELSEN 



99 EAST CENTER ST., ROCHESTER, MN, 



I 



Figure 10-2 (Part 2 of 2). A Sample Program Showing Direct Access of a Keyed Data Set 

As the sample illustrates, the value of the key is contained in the field named 
ID Q. This value is used by the program to determine the exact record in the 
data set to be read. If the data set is keyed and nonindexed, the program 
directly finds the correct record. 

If the data set is keyed and indexed (or the ADOROUT data set is being used), 
the program uses the index data set to correctly locate the appropriate record 
in the data set. The sample in Figure 10-2 illustrates using a direct access 
method with a keyed and indexed data set. 



J 
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OOOOiZ* 

00002Z* 

00003Z* 

00004ZJ 

00005Z D1SUB13 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025C 

00026C 

00027C 

00028C 

00029C 

00030C 

00031C 



PROGRAM 63. FIGURE 10-3 IN THE DE/RPG USER'S GUIDE * 
a*********************************** *********** *************** 

ACCESS3 



N05 

N02 
N05 



IE 

MASTHEA4 
: HEADER 
; ID 

CUSNA 

ADDR 
' MASDETAL 
C DETAIL 
; I DENT 

ITEM 

QUANT 

COST 
' TEMP8 
: NEW 

IDENT 

CUSNA 

ADDR 

ITEM 

QUANT 

COST 
SUBi3 
AGAIN 

ID 



N05 



66 

6 
30 
30 
27 

6 
10 

5 

6 
87 

6 

30 

30 

10 

5 

6 

BEGSR 

TAG 

READ HEADER 
CHAINDETAIL 
WRITENEW 
GOTO AGAIN 
ENDSR 



Di 

DEVICECDISK Di) INDEX(LOOK) 



DEVICE(DISK Di) INDEX(FIND) 



DEVICE(DISK Di) 



05 



Figure 10-3 (Part 1 of 2). A Sample Program Showing Direct Access of a Keyed 
and Indexed Data Set 
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HEADER5\( HEADER1 j HEADER4Jjf HEADER3JJ HEADER2 . . .( 



201 202 203 204 205 




HEADER1/202J[HEADER2/205\[HEADER3/204^ 



101 



102 



103 104 



105 




L3((DETAILl(jDETAIL5((DETAIL2f DETAIL4J 



DETAIL3\\DETAIL1 



301 302 303 304 305 




DETAIL1/302((dETAIL2/304JJDETAIL3/30iJ(dETAIL4/305\ 



101 102 



103 104 




NEW1 (( NEW2 J[ NEW3 (( NEW4jj NEW5 ...( 
Figure 10-3 (Part 2 of 2). A Sample Program Showing Direct Access of a Keyed and Indexed Data Set. 
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The sample in Figure 10-3 illustrates a direct access method using a field from 
a previously read record as the key value. First, a record from the LOOK data 
set (which is the index data set for the MASTHEAD data set) is sequentially 
accessed. Since this data set is written in key sequence Q, the first logical 
record (by key) is the first relative record. The key field from this record is 
extracted and used to identify the correct record to read from the MASTDETAL 
data set Q. This record is directly accessed. After the read and chain 
operations have been concluded, a new record, which contains fields from the 
previous two records that were read, is written into a new data set Q. 

Remember that the way the data set is created directly determines how it can 
be accessed. Part 1 contains related information about creating data sets 
using data-entry and application programs. 

A data set created with the ADDROUT file in the Sort/ Merge Program Product 
is similar to an indexed data set with the following exceptions. When 
accessed : 

• The data set must not specify a key field. 

• The name provided as a parameter for the INDEX keyword is the name of 
the ADDROUT file. 

If you are using a large indexed data set, you may want to include a storage 
parameter for the INDEX keyword. The DE/RPG Reference Manual contains 
additional details about a storage parameter. 
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Part 5. Data Tables 



This part describes considerations involved in using data tables and in creating 
tables. It contains two chapters: 

• Chapter 11. Using Data Tables in Data- Entry Programs 

• Chapter 12. Using Arrays in Application Programs 

There are two basic ways of thinking of data tables in DE/RPG: (1) as lists 
and (2) as one-dimensional RPG arrays. The table functions performed on the 
A-specification are primarily for data-entry purposes. They provide a variety of 
ways to ensure correct entry or to automatically supply values for entries. The 
array operation provided on the C-specification compares a value (field or 
constant) with entries in a table and allows you to manipulate a table and index 
as a field. 

The table functions that can be provided on the A-specification are: 



LOOK 



Determines if the field matches a table 
entry. 



RANGET 



Determines if the field is within an 
acceptable range of values. 



SUBST 



Replaces the value of the field with an 
entry from the table. 



XCHK 



Cross-checks the values of two fields 
against a table to ensure that the 
combination of their values matches. 



The array operations that can be performed on the C-specifications are: 



LOKUP 



Compares the value named in Factor 1 with 
the entries in a table for high, low, 
and equal. 



Arrayname,index 



Allows the programmer to use the 
arrayname, index combination as any field is 
used on the C-specifications. 



The Introduction to DE/RPG manual describes the process of using tables and 
of creating them (both in separate data sets and in the using program). This 
chapter describes considerations for using tables; it does not repeat the 
material provided in the Introduction to DE/RPG manual. The DE/RPG 
Reference Manual provides additional information about coding programs to use 
tables. 
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Chapter 11. Using Data Tables in Data-Entry Programs 



The specific topics described in Chapter 11 are: 

• Considerations about declaring indexes 

• Arranging data in tables 

• Arranging tables in data sets 

CONSIDERATIONS ABOUT DECLARING INDEXES 

Indexes are numeric variables which contain the number of a table entry. The 
number that the index contains depends on the table operation with which it is 
used. For example, when an index is used with a LOOK operation, the index 
contains the number of the table entry that matches the contents of the current 
field. 

You have the choice of either declaring the indexes to be used in your program or 
of accepting the default characteristics for the indexes. The default characteristics 
for each index are five positions wide and numeric. All indexes must be numeric, 
so there is no difficulty in accepting the default from this viewpoint. However, all 
indexes are not necessarily five positions wide. If you accept this default and you 
use indexes in a XCHK operation, you must create the XCHK table so that its 
entries are five positions wide. If you do not accept the default, DE/RPG is not 
able to provide the correct value. 

Of course, you have the most control when you create the indexes. Creating 
indexes as work space fields prevents their being displayed or written to 
diskette. The sample in Figure 11-1 illustrates the declaration of an index 
named PEEK. 
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************************************************************* 

PROGRAM 64. FIGURE ii-i IN THE DE/RPG USER'S GUIDE * 
************************************************************* 



SAMP 
iTEMP 



TFILE(ONLY) 
Bi 
DEVICE(CRT) 



PMT< ENTER AMOUNT) 
LOOK(AMTAB PEEK) 
NUMENT(9) 

DEVICE(DISK Di) 



OOOOiZ** 

00002Z* 

00003Z** 

00004ZJ 

00005Z BiTEMP IE 

00006A F DISPL 4 , 

00007A R TEMP I 

00008A PEEK Ql OW I 

00009A AMT 4 21 

OOOiOA 

OOOiiA F TABLEi 

00012A T AMTAB 

00013A F ONLY 

**CTDATA TABLEi 

iOOO 

2000 

3000 

4000 

5000 

6000 

7000 

8000 

9000 

Figure 11-1. A Sample Program Showing the Use of an Index with a Table 

This index is described as a work space Q. It is one position wide Q. 
Because it is only one position wide, it can be used effectively only with a 
table that contains fewer than 1 entries. The in the decimal usage column 
9 describes the field as being numeric. 
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ARRANGING DATA IN TABLES 

The type of table operation you want to use determines the arrangement of the 
data in the table. For example, two tables that are to be used in LOOK 
operations in the same program, can be created simultaneously by alternating 
entries. The sample in Figure 11-2 illustrates this table entry process. 

OOOOiZ*************************************************************** 
00002Z* PROGRAM 65. FIGURE ii-2 IN THE DE/RPG USER'S GUIDE * 
00003Z*************************************************************** 



00004ZJ 


TABEXMP 






TFILE( TEMPORAR 


00005Z YiEXMPTB 




IE 




Yi 


00006A 




F 


INPUT 


ii 


DEVICE(CRT) DSPS1H6 80) 


00007A 




R 


EXMPTB 






00008A 










OOOiOOi'ITEM NUMBER" 


00009A 








B 


000200 i' PR ICE 1 _ 
I00i0i4L00K(ITEMT>H 


00010A 








OOOiiA 








2I002008L00K( PRICTA) CHECK (RZ) 


00012A 




F 


LOOKTBS 


ii 


NUMENT(4)Q 


00013A 




T 


ITEMT 


6 


00014A 




T 


PRICTA 


5 


o 


00015A 




F 


TEMPORAR 


ii 


DEVICE(DISK Di) 


|**CTDATA 


LOOKTBSR 






100-A200895 










350-A100150 










580-A208969 151 










678-Ai 15555 











Figure 11-2. A Sample Program Showing a Com pile -Time Table 

In this program, the operator is entering an item number Q. This item number 
is being validated by entries in a table Q. If a matching entry is found in the 
table, the entered number is considered valid. In the same manner, the price 
H that is entered by the operator is being validated by entries in another table 
Q. These two tables can be created at compile-time Q. Because they are 
both being used in LOOK operations, they should be created in alternating 
sequence Q in the same data set Q. No indexes are used in this program. 
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If two tables are being used for a substitute operation, they should also be 
created in alternating sequence in the same data set. The sample in Figure 
1 1 -3 illustrates a program using the SUBST operation. 



0000 1Z***** ************************** ********* a********************** 
00002Z* PROGRAM 66. FIGURE ii-3 IN THE DE/RPG USER'S GUIDE * 

00003Z********** **************************** ************************* 



00004ZJ 


SAMPLET 








TFILE(SHIPTEM) 


00005Z A1HEADER 




NE 








00006A 




F 


DISPL 




73 


DEVICE(CRT) DSPSIZ(6 80) 


00007A 




R 


HEADER 








00008A 












0001001' CUSTOMER NAME* 


00009A 












0002001 'ADDRESS' 


OOOiOA 












0003001 'SHIP CODE' 


OOOiiA 










30 


1001015 


00012A 










30 


1002015 


00013A 








B 


13 


I003015CHECMRB) SUBST (SHIPCD SHIPTO) 


00014A 




F 


SHIPTEM 


73 


DEVICE(DISK Di) 


00015A 




F 


SHIPTAB 




15 


NUMENTC4) 


00016A 




T 


SHIPCD 




•? 




000 17A 




T 


SHIPTO 




13 




**CTlQt 


SHIPTAB 










01RAILFREIGHT 












02INSTIMAIL 












03EDDVS 


TRUCKS 












04MASSIVE TRANS 













Figure 11-3. A Sample Program Showing the Use of the SUBST Operation 

In this program, the operator is entering a two-digit ship code Q . The program is 
exchanging this two-digit code for a descriptive title taken from the substitution 
table Q . As you can see, the organization of the table data set consists of alternat- 
ing entries for the abbreviated and extended entries. 

Remember, when you are using a SUBST operation, that the field receiving the 
substituted data must be long enough to accept it. For example, in Figure 1 1-3 if 
the receiving field Q had been only two positions to accept the initial operator 
entry, only the first two characters of the extended description could have been 
substituted. If the code is 03 and the field length is 2, the field would contain ED 
(rather than EDDY'S TRUCKS) after the substitution. Another consideration 
when using the SUBST operation is to keep the entries of the two tables aligned. 
For example if the tables were not carefully created, the incorrect description 
might be substituted for the coded entry. 
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Entries for tables being used by the RANGET operation should be paired. The 
sample in Figure 1 1 -4 illustrates this operation. 

00001 Z*************************************************************** 
00002Z* PROGRAM 67. FIGURE 11-4 IN THE DE/RPG USER ' S GUIDE * 
00003Z*************************************************************** 

TFILE(DISRAT) 

15 DEVICE(CRT) DSPSIZ<6 80) 

5 21 DpmK ENTER AMT SOLD TO DETERMINE THE- 
DISCOUNT) RANGET(DISCT FIND) 
CHECK (RZ) 
INSERT (FIND) 

NUMENT(6) 

DEVICE(DISK Di) 



00004ZJ 


PARTSAM 




00005Z CiREC 




IE 


00006A 




F 


DISPC 


00007A 




R 


REC 


00008A 








00008A 








00009A 








OOOiOA 








OOOiiA 






FIND 


00012A 




F 


DISCOUNT 


00013A 




T 


DISCT 


00014A 




F 


DISRAT 


**CTDATA 


DISCOUNT 


B 


OiOOO 






02000 








02010 








05000 








05010 








19990 









5 


21 


1 


Old 


5 




5 


9 


15 





Figure 11-4. A Sample Program Showing the Use of the RANGET Operation 

In this sample, the program is testing the entry Q to determine if it is in an 
acceptable range of values. The table being used to determine the range is 
created at compile-time within the program Q. If you look at the entries for 
the table, you see that the first and second entries form a pair of ranges, the 
third and fourth form another pair and so on. For example, if the entry is 
03000, it is in the range of 02010 to 05000; therefore, the index (FIND) 
contains the number 3. Remember that indexes that are not declared (set up 
as separate fields) default to numeric fields with a length of 5. 

The coding required to determine the amount to be discounted for this value is 
not included in the program. 



ARRANGING TABLES IN DATA SETS 

Multiple tables can be contained in a single data set. Before you group 
multiple tables in the same data set, however, consider that all tables used by 
a program must be resident in storage for the entire use of the program. Only 
those tables being used specifically for the program should be in the data set. 
If you are using the same tables in a variety of programs, try to group them in 
data sets separate from the program so unused tables are not loaded into 
storage when the programs are operating. 

The sample in Figure 11-5 illustrates the creation of a data set that uses 
multiple tables. 
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00001Z»»»»*«»«»» 

00002Z* PROGRAM 

00003Z»*»»«*»»*« 

00004ZJ TODAY 

00005Z 

00006Z AOSCRATCH 

00007Z X1DET 

00008Z X2TRAIL 

00009Z 

OOOIOZ 

OOOiiZ 

000.1 2 A 

00013A 

00014A 

00015A 

00015A 

000 16A 

00017A 

00017A 

00017A 

000 18A 

00018A 

00019A 

00019A 

00019A 

00020A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025A 

00026A 

00026A 

00027A 

00028A 

00029A 

00030A 

00031 A 

00032A 

00033A 

00034A 

00035A 

00036A 

00037A 

00038A 

00039A 

00040A 

00041A 

00042A 

00043A 

00044A 

00045A 

00046A 

00047A 

00048A 

00049A 

00050A 

00051 A 

00052A 

00053A 

00054A 

00055A 

00056A 

00057A 

00058A 

00059A 

00060A 

00061A 

00062A 

00063A 

00064A 

00065A 

00066A 

00067A 

**CTDATA TABLE2 

i 

1 



68. FIGURE 1 

« * ft * ft ft ft ft M * ft ft ft * 



IE 

NE 

IE 
R «P0S150 
»P0S150 
*P0S150 



R 

R 

DISP 



R SCRATCH 



R DET 
DAT 
SALS 

ITEM 



DESC 
QUANT 



COST 

CUSN 
MARK2 
R TRAIL 
DAY 
CUST 
TOT 



MARK 3 
F BILLING 
R DETAIL 

DAT 

CUSN 

SALS 

ITEM 

DESC 

QUANT 

PRICE 

COST 

MARK2 
R TRAILER 

DAY 

CUST 

TOT 

MARK3 
F MASTHEAD 
F TABLE 1 
T ITEMT 
T PRICET 
F TABLE2 
T INVENT 



1-5 IN THE DE/RPG USER'S GUIDE » 

ft«««««K«ftftft«*««**«*tt«*«*ftK««««ftH*««*««« 

TFILE(BILLING) 
CFILE(MASTHEAD) 
XI URITE(«N0> 
X2 WRITE(DETAIL) 
AO URITE(TRAILER) 
'H' 
'D' XI 
'T' X? 
150 DEVICE (CRT) 

DSPSTZ(& 80) 

6 I001060PMT(MAKE AUTODUP ACTIVE AND ENTER T+ 
HE DATE IF THERE IS ONE) 
AUXST(DATF) 
0002001' USE THE SEARCH KEYS TO FIND THE C0+ 
RRECT HEADER RECORD IN THE MASTHEAD- 
DATA SET. ' 
0003001 'SEARCH FOR A MATCH TO THE CUSTOMER- 
NUMBER ON THE ORDER FORM.' 
0004001' NEXT USE THE COPY KEYS TO COPY DAT+ 
A FROM THE HEADER INTO THIS DATA SE+ 
T. ' 
1 I PMT(USE THE FIELD EXIT KEY TO LEAVE- 
THE DISPLAY) 
CHECK (FE) 

6 I002001AUXDUP(DATE) 

3X I002021PMT(ENTER THE SALESMAN'S INITIALS) 
CHECK (DR BC) 
1 00203 1PMT( ENTER THE ITEM CODE) + 
SHIF T(DDXXXD) 
LOOK< ITEMT A) 
CHECK (BC) 
1 00300 1PMT( ENTER THE DESCRIPTION) 
0I003041PMK ENTER THE QUANTITY) 

CHECK (RZ DR) 
2I00400i.PMT<ENTER THE PRICE) CHECK (RZ) 
LOOK (PRICET B> 
XCHK< INVENT A B) 
0004060' TOTAL: ' 
2 1 004070 1 NSERT ( PR I CEftQUANT ) 

TADD(«TOTi) DSPATR(HI) 
I005001PMT( ENTER THE CUSTOMER NUMBER) 
1005079INSERT( ' D' ) 



6C 



1 

6D 
5 
15 

1 
150 



I PMT( ENTER THE CURRENT DhTE) 
I INSERT (CUSN) 
!I INSERT ( *T0T1 ) 
RESET (ftTOTl) 
I INSERTCT') 

DEVICE (DISK X'4000' ) 

001 
007 
012 
015 
021 
051 
055 
060 
150 

001 
007 
012 
150 



150 

11 

6 

5 

1 



DEVICE (DISK X'4000' ) 
NUMENT(6) 



NUMENT<12) 
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3 

3 

4 

4 

5 

5 

6 

6 

**CTDATA TABLE! 

00AAA109950 

OOAAB200230 

00ABB318970 

00BBB400013 

00BBB500405 

00BBB609875 



Figure 11-5. A Sample Program that Illustrates the Use of Multiple Tables 



Chapter 12. Using Arrays in Application Programs 



This chapter describes how to use the LOKUP and MOVEA operands on the 
C-specification and how to use array name, index as a field. 

USING LOKUP ON THE C-SPECIFICATIONS 

The array operation that is available on the C-specification is LOKUP. This 
operation is similar to the LOOK operation on the A-specification. In addition to 
the equal-to check provided by the LOOK operation, the LOKUP operation also 
provides higher-than and lower-than checks. When a table is referred to by a 
LOKUP operation on the C-specification, it must be described on the A-specifica- 
tion in the program. The sample in Figure 12-1 illustrates a program that uses the 
LOKUP operation. 



0000 iZ***************************************************************** 

00002Z*PR0GRAM 69. FIGURE i2-i IN THE DE/RPG USER'S GUIDE 

00003Z**tf******************ft********tt«*ft*tf**tttt«*****«**tttf**ttKM«MK**«* 

00004ZJ LOKEXM 

EOJ 
DEVICE(CRT) DSPSIZ<6 80) 

INSERT(A) 

DEVICE<DISK Di) 



DEVICE<DISK Di) NUMENT<3) 



00005Z 


XiSUB 




IE 








00006A 




F 


INPUT 




6 




00007A 




R 


CHECK 








00008A 










5 


01 


00009A 










i 


I 


OOOiOA 




F 


PREP 




10 




OOOilA 




R 


ONE 








00012A 






FLDi 




5 





00013A 






FLD2 




3 




00014A 






FLD3 




2 




00015A 




F 


RANTAB 




5 




OOOiAA 




T 


EXTAB 




5 





00017C 




i 


?UB 


BEGSR 






00018C 








READ 


ONE 




00019C 




□ 


B 


Z-ADDi 




00020C 




r LDi 


LOKUPEXTAB,A 


00021C 


Oi 






EXFMTCHECK 


00022C 








ENDSR 







0050 



99 



Oi 



Figure 12-1. A Sample Program Showing the Use of the LOKUP Operation 

Notice that the index is described on the C-specification Q before it is used with 
the table. Also, notice how the index is used with the table to locate the position 
of the successful match in the table H . 
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USING ARRAYNAME, INDEX AS FIELDS 

On the C-specification, arrayname, index combinations can be used wherever a 
field can be used. The sample in Figure 12-2 illustrates one such use. 



0000 iZ ******** ************* *************** 
00002Z* PROGRAM 70. FIGURE 12-2 IN THE DE 
00003Z ********** ******* ******************* 

00004ZJ TFIELD 

00005Z A1TRANS IE 

00006A F INPUT 100 

00007A R TRANS 

00008A INTERi 15 OU 

00009A INTER2 15 Old 

00010A FLDi 5 12 

OOOliA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020C 

00021C MOVE ITEMT,AMlNTERi 

00022C MOVE PRICET , B|-| NTER2 

™023C __ 

HctdatHtablei 

AAAA100001 
AAAA200002 
AAAA300003 

Figure 12-2. A Sample Program Showing the Use of the Table, Index Operation 



F TABLEi 

T ITEMT 

T PRICET 

CALCS 



01 

01 

I 



15 

15 

i 

10 

5 

5 

BEGSR 

MOVE ITEMT, A 
MOVE PRICET, 
ENDSR 



*************************** 

/RPG USER'S GUIDE < 

*************************** 

Al WRITE <*N0> 
DEVICE (CRT) DSPSIZ<6 80) 



TJ^ERT ( 00000000000000 ) 

D'ERT( 00000000000000) 
2PM T (ENTER THE_yEM NUMBER) __ 

LOOK( ITEMT A>H Q 

2PMT( ENTER THE PRICE) LOOK (PRICET B) 

EXSR( CALCS) 

INSERT ( INTERi) 

INSERT ( I NTER2) 

NUMENT(3) 



In this sample, the operator enters the item number as prompted Q . The program 
finds the corresponding entry in the ITEMT table Q and places the position number 
in the A index Q. Next, the program prompts the operator for the price Q . It 
searches the PRICET table Q and places the position at which the match is found 
in the B index Q. At this point, the program exits to the C-specifications where it 
places the value of the ITEMT found in the position designated by index A in the 
field named INTER1 Q . Correspondingly, the program places the matching value 
from the PRICET table in INTER2 0. 

The values of INTER1 and INTER2 are displayed. The displays indicate the process 
involved in using the program. 
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USING THE MOVEA OPERATION 

On the C-specification, the MOVEA operation transfers characters to a field. 

7************************************************************************** 
Z* PROGRAM 33. FIGURE 12-3 IN THE DE/RPG USER'S GUIDE * 

7************************************************************************** 



ZJ 


PR0G83 










Z 1 


. SCAN 


iE 




EO. 


1 


A 




F CRT 


80 


DEVICE (CRT) 




A 




R MSGi 








A 




MSG80 


80 B 


PMT( ENTER 80 


BYTE MESSAGE FOR SCAN) 


A 




R MSG2 








A 









'THE MESSAGE 


CONTAINED LETTERS ' 


A 
A 
A 




LETTER 


.160 

i 
.160 W 








BLANKS 






A 




F TBLFILEi 


1 


NUMENT(80) 




A 




T SCTBL 


i 






A 




F TBLFILE2 


1 


NUMENT(160) 




A 




T LTBL 


i 






C* 


SUBROUTINE SCAN: THIS ROUTINE INPUTS A LINE OF DATA, SCANS AND TABULATES 


C* 


WHICH L 


ETTERS WERE 


USED. AND DI, 


SPLAYS THOSE LETTERS. 


C 
C 
C 




SCAN 
LOOPi 


BEGSR 

TAG 

EXFMTMSGi 




START SUBR. SCAN 
GET 80 BYTE MESSAGE 


c 






MOVE A BLANKS 


LTBL 


BLANK OUT CHAR. TABLE 


c 






MOVEAMSGSO 


SCTBL 


MOVE MSG. INTO TABLE 


c 






Z-ADDO 


L 30 


ZERO LETTER COUNT 


c 




LOOP 2 


Z-ADDi 
TAG 


I 20 


INITIALIZE LOOP CTR, 


c 






MOUE SCTBL, I 


CHAR i 


GET NEXT CHARACTER 


c 




' A ' 


CABGTCHAR 


END LP 2 


IF < ' A ' , BRANCH 


'...- 




1 7 ' 


CABLTCHAR 


ENDLP2 


IF > ' Z' , BRANCH 


c 




CHAR 


LGKUPLTBL 




03CHECK IF CHAR. IN TBL 


c 


03 




GOTG ENDL..P2 




IF SO, BRANCH 


c 




L 


ADD :i. 


L 


INCREMENT TABLE INDEX 


c 




i 


CABEQL 


SKI PC 


IF FIRST, BRANCH 


(J 






MOVE ' , ' 


LTBL, L 


ELSE INSERT COMMA 


c 




L 


ADD i 


L 


I NCR. INDEX PAST ' , ' 


c 




SKI PC 


TAG 






C 

c 




ENDLP2 


MOYE CHAR 
TAG 


LTBL ,1. 


MOVE CHAR INTO TABLE 


c 

c 




J 
.i. 


CABLE80 


I 
L00P2 


imm mi m*s. 


L- 






MOVEALTBL 


LETTER 


MOVE TABLE INTO FIELD 


Q 






EXFMTMSG2 
GOTO LOOPi 
ENDSR 




AND DISPLAY RESULTS 
GO DO ANOTHER 



Figure 12-3. A Sample Program Showing the Use of the MOVEA Operation 



This program prompts the operator to enter a message to be scanned for the letters 
in it. To facilitate scanning, the program moves the message into a table using the 
MOVEA operation. Each letter is looked-up in a table used to collect the letters. 
If the letter is not in the table, the letter is added to the table. A separating comma 
is added for punctuation. After the entire message is processed, the letters used in 
the message are moved into a field and displayed. 
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Part 6. Printing 



This section contains information about printing data using the IBM 5280. It 
consists of two chapters; 

• Chapter 13. Unformatted Printing for Data- Entry Programs 

• Chapter 14. Formatted Printing for Application Programs 
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Chapter 13. Unformatted Printing for Data-Entry Programs 



Unformatted printing is only available for programs using transaction files 
(TFILE specified in the job statement). Chapter 1 describes this type of 
program in detail. Unformatted printing consists of printing the contents of the 
current buffer (current record) without providing format control such as line 
skipping. The result is that the default records are printed one at a time with 
fields in the record strung together. To print an unformatted record, three 
conditions must exist: (1) PRTFILE(datasetname) must appear in the job 
statement, (2) a printer data set must be specified on the A-specification, and (3) 
the operator must use the PRINT key. 

The sample in Figure 13-1 illustrates a program that provides unformatted 
printing. 



0000 1Z ************************* 

00002Z* PROGRAM 71. FIGURE 13- 
00003Z************************* 
00004ZJ INTERX 



**#»******#******#******************** 

i IN THE DE/RF'G USER ' 5 GUIDE * 

**W*#W»##W#********W****************** 

TFILE(TEMJOB) 



00005Z 












WpRTFILI 


00006Z 


BiPURCH 




NE 






00007Z 








R 




Bi 


00008A 






F 


EXMP 


15 


DEVICE (CRT) DSPS 


00009A 






R 


PURCH 






00010A 












0001001' ITEM' 


OOOiiA 












0002001' PRICE' 


00012A 












0003001 'QUANT' 


00013A 








FLD1 


6 


1001010 


00014A 








FLD2 


5 


2I002010CHECK(RZ) 


00015A 








FLD3 


4 


0I003010CHECK(RZ) 


00016A 




D 


F 


TEMJOB 


_ i5 


DEVICE<DISK Dl) 


00017A 




F 


OUTPUT 


Q 15 


DEVICE (PRINTER X 


00018 






B 






Figure 13-1. 


A Sample 


Program 


Showing the Use of the PRTFILE Operation 



8000 ' ) 



Note that only the input fields Q in the record are printed. The reason is that 
only input fields are in the default diskette record. To print the three records 
as shown in the sample, the operator has to press the Print key three times or 
use the Auto Rec Adv function. Look at the length field in the file statement 
for the printer Q. The length of the printed record is determined by the length 
provided in the file statement. For example, if the length in the print file 
statement for the sample were 1 0, and the length of the default record were 
15, the last five characters in the record would be lost and the resulting printed 
record for the first line is: 

00AAA10099 

Also notice that no redefinition of fields follows the file statement for the 
printer Q or for the diskette Q. 

If a record has been reformatted, and unformatted printing is used, the results 
will match the format of the diskette record. 
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Because unformatted printing is available for programs using transaction files, 
it is available in the enter, update, verify, and copy operating modes. The 
mode in which the operator uses the Print key determines what is printed. If 
the operator uses the Print key for an unformatted printing operation when the 
enter mode is in effect, only the last record in the data set is printed. The 
reason for this is that the enter mode goes to the end of the data set in 
anticipation of adding new records. If you are using the unformatted printing 
operation, be sure you know which mode is in effect when the operation is 
used. 
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Chapter 14. Formatted Printing for Application Programs 



Formatted printing differs from unformatted printing in two ways: 

• The program determines the arrangement of data as it is printed. 

• Printing is controlled by operations in subroutines on the C-specifications rather 
than by the operator using the Print key. 

Formatted printing can be used with all programs except those exclusively 
using transaction files (no subroutines). Chapter 1 provides information about 
the various types of programs available for use in DE/RPG. 

To use formatted printing, a print data set must be described on the A-specification 
and a write operation for the print data set must be specified on the C-specification. 



Formatted Printing for Application Programs 151 



The sample in Figure 14-1 illustrates a very simple formatted printing 
operation. 



OOOOiZ** 

00002Z* 

00003Z** 

00004ZJ 

00005Z RiHEADER 

00006A 

00007A 

00008A 

00009A 

OOOiOA 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

00019A 

00020A 

00021A 

00022A 

O0023A 

00024C 

00025C 

00026C 

00027C 

00028C 

00029C 



******************* 

PROGRAM 72. FIGURE 
******************* 

PRTEX 



****************************************** 

14-1 IN THE DE/RPG USER'S GUIDE * 
****************************************** 



E 
VIEW 
HEADER 
CUSNA 
STREET 
CISTA 
PRINT 



R NAME 

CUSNA 
R ADDR 

STREET 
R CITY 

CISTA 
F CUSTOMER 
R HEAD 
K CUSNA 

STREET 

CISTA 
PRNT 



90 

20 

20 

20 

132 



20 

20 

20 
90 

20 
20 
20 
BEGSR 
WRITENAME 
WRITEADDR 
WRITECITY 
WRITEHEAD 
ENDSR 



URITE(«NO> 
DEVICE(CRT) DSPSIZ(6 80) 

I PMT( ENTER CUSTOMER NAME) __ 
I D PMT(ENTER STREET ADDRESS) Q 
I PMT( ENTER CITY AND STATE) EXSR(PRNT) 

DEVICE (PR INTER Pi) 

.FORM (55) __ 

|SPACEB<2) SPACEA(2)Q 

|SPACEA(0) 
) 

SPACEA(3) 
) 

DEVICE(DISK Di) 



040 



MR. N.E. EDDY 

233 OSBORNE DRIVE 



MRS. JANE RANSOM 

16 FORUIRTH ST 



FRAMPTON, NEW MEXICO 



NEW HAMPTON, CONN. 



Figure 14-1. A Sample Program Showing a Simple Formatted Print Operation 
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This program is prompting the operator for customer identification information 
Q. When the entry for a customer is complete, the program exits to a 
subroutine on the C-specification Q. The subroutine writes three records: 
NAME, ADDR, and CITY via the printer. 

Notice that the printing does not begin on the first line of the paper. The 
SPACE B (2) Q operation is telling the IBM 5280 to skip two lines before printing 
the record. The SPACEA(2)Hoperation is telling the IBM 5280 to print the first 
record and then skip two lines before printing the next record. 

The second record Q is printed and no lines are skipped before the last record 
Q is printed. After the last record is printed, four lines are skipped. The last 
line of the subroutine Q writes a single record (containing three fields) in key 
sequence into the diskette data set. The entire process, beginning with the 
prompt to the operator, begins again. 

This was a simple sample of formatted printing. More complex samples are 
provided later in this chapter. The topics that are presented in this chapter are: 

• Designing a print data set to be used with an existing form 

• Designing a print data set to create a form 
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DESIGNING A PRINT DATA SET TO BE USED WITH AN EXISTING FORM 

The sample in Figure 14-2 illustrates the form you use to design a print data 
set. This form represents a typical preprinted form used by many businesses. 
The form is marked to indicate the amount of space between entry areas. 



/ 



Top of Page 



Align the Printer at this Mark 2 Inches from Alignment Mark to First Print Line 

RAYMOND B. ATHERTON LAW FIRM 

Bismarck, North Dakota 

Date of Service Type of Service 



Associate Who Helped You 



25.6 mm 
(1 Inch) 



12.8 mm 
(0.5 Inch) 



112. mm 
(4.4 Inches) 



46 mm 
(1.8 Inches) 



Figure 14-2. The Form to be Used for the Print Operation in Figure 14-4 
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The first rule to remember when working with preprinted forms is that 
DE/RPG prints the data exactly where you specify. 

This means that you must tell DE/RPG exactly where to place each piece of 
data. The placement of data not only includes the line location, it also includes 
the space location. To understand how to make these measurements, you 
must know something about the printer. 

For example, the IBM 5256 printer prints 132 characters per line and six or eight 
lines per inch. The maximum line width is 13.5 inches. This means that each 
character occupies approximately 0.1 inch (13.5 divided by 132) and that each 
printed line occurs approximately every 0.17 inches (1 divided by 6) for six lines 
per inch and approximately every 0.13 inches for eight lines per inch. If the form 
you are using is 10 inches long, the number of lines that can be printed on the form 
at six lines per inch is 60 lines (10 inches multiplied by 6). If your form is 8.5 inches 
inches wide, the maximum number of characters that can be printed on the form at 
10 characters per inch is 85 characters (8.5 divided by 0.1). 
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You must measure your preprinted form to find the width and length of the 
form. Then determine where you want to print each line of data. Review the 
illustration of the form in the sample in Figure 14-3. 



% 


le 

D 

Date of Servj 


7 Inches 

__ RAYMOND B. ATHERTON LAW FIRM 

Bismarck, North Dakota 

ce Type of Service 


Associate Who Helped You 
























a 




a 














}■ 













































Figure 14-3. The Measurements that Determine the Spacing Required for the Program in Figure 14-4 
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Assume that this form is 7 inches long D; that is, 42 lines long (six lines per inch 
multiplied by 7 inches). The alignment mark Q tells the operator to load the form 
with space at the top. Counting from the alignment mark, there are 2 inches D to 
the first print line. Two inches is 12 lines (2 multiplied by 6). Therefore, you 
know that you want to skip 12 lines before printing the first line. Next, look at the 
marks on the first print line. The first field to be printed is 1 inch long Q . This is 
a date field. The date is always six characters long (mmyydd). If each character 
takes 0.1 inch, then 6 characters take 0.6 inch. This does not fill the field. You 
will have to do something to start the printing for the next field in the proper 
column. If you measure across the vertical separators, you find that you need an 
extra six characters to ensure that the next field B is printed in the proper begin- 
ning position. 

You can determine the maximum length of the second field by dividing the length 
of the field by the number of inches per character. For example, the field is 4.4 
inches long and each character takes 0.1 inch; therefore, the maximum number of 
characters that can be printed in this field is 44. The length of the last field must 
be determined next. This field is 1.8 inches, so divide 1.8 by 0.1. The field can be 
a maximum of 18 characters. 

Next, you must determine how many spaces to skip between lines of print. You 
know from the marks that there is 0.5 inches between lines Q. If a line is printed 
every 0.17 inches (6 lines per inch) and there is 0.5 inch between the lines you 
want printed, then you should skip 3 lines after printing a line (0.5 divided by 
0.17). 
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You have enough information to begin writing the program that prints the data 
from a diskette data set onto this form in the locations you specify. The 
sample in Figure 14-4 illustrates this program. 



OOOOiZ 
00002Z 
00003Z 
00004? 

oooog] 

00006A 

00007A 

00008A 

00009 

00010A 

OOOiiA 

00012A 

00013A 

00014A 

00015A 

00016A 

00017A 

00018A 

000 19A 

00020A 

00021A 

00022A 

00023A 

00024A 

00025C 

00026C 

00027C 

00028C 

00029C 

00030C 

00031C 

00032C 

00033C 

00034C 

00035C 

00036C 

00037C 

00038C 

00039C 

00040C 

00041 

00042 



a************************************************************** 
* PROGRAM 73. FIGURE 14-4 IN THE DE/RPG USER'S GUIDE * 

*#*W*WWW******#*#*W*WW*****#*#******W«****W***W*#**W**W* ******* 

J PRNTJOB 



Q1START 



01 



IE 
F BILMAST 
R BILLING 
ID 

CUSNA 
DATE 
DESC _ 

I ASSOC US 
F PRINOUT 
|R FIRSTA 

"date I 

BUDESC mm 

R FIRST 

DATE 

DESC 

R SECOND 

ASSOC 
R NEXT 
CUSNA 
START 



NEXTON 
NOW 



ID 

oiQgj 



164 

6 

90 

6 

44 

18 

132 

6 
44 

6 
44 

|Ql8 

90 



EOJ 
DEVICE(DISK Di) 



DEVICE(PRINTER Pi) F0RM<42) 
SKIPB(12) 



i 
Q13 1 

001 
13 

058 



SPACEB(l) 



SPACEA(2)Q 



SKIPB(40) SKIPA(l) 



N05 



BEGSR 
3 READ BILLING 

TAG 
■cluiRITEFIRSTA 

TAG _. 

Z-ADDID IBtEMP 

WRITESECOND 
.-.READ BILLINGJ0 
IflcOMP TEMP 

WRITEFIRST 

GOTO NOW 

READPBILLING 
EfJwRITENEXT 

read billing 
goto nexton 
BcIendsr 



a 



60 



E 



05 



m 05 

001 



05 
05 



Figure 14-4. A Sample Program that Prints a Form 
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The program begins with an exit to a subroutine D. The subroutine is reading a 
record fl from the diskette data set. The subroutine then tells the IBM 5280 to 
print the record named FIRSTA fl. The contents of this record are described on 
the A-specification fl. Notice that a file description for the printer precedes the 
record description fl. This file description contains an operation that tells the 
IBM 5280 the length of the form fl. You had determined this length by multiply- 
ing the form length in inches times the number of lines per inch that could be 
printed. Next, the first record that is printed is described. The record description 
contains the operation that skips the first 12 lines of the form fl to properly posi- 
tion the printing at the first vertical print position. 

The field descriptions determine what is printed on the line. The first field is 
printing the date fl from the data set in print positions 1 through 6 fl. The 
second fl is inserting the contents of the description in the data set into print 
positions 13 through 57 fl. 

When this record is completed, the subroutine adds a field in the record to 
zero and places it in a newly created field fl. This new field will be used later 
in the program to determine if the next record that is read is for the same 
customer and, therefore, if it should be printed on the same form. The 
SECOND record is written. 

The SPACEA(2) fl operation in the record advances the printer 2 lines when 
this record is completed. That locates the next print line in the proper location 
for the next record. The field currently being printed is 18 characters long fl. 
The field is taken from the diskette data set fl. At the completion of this 
record, the subroutine reads the next record fl. The subroutine compares the 
identification number in the record to the identification number of the previous 
record fl. If these numbers match, an indicator fl is set. This indicator 
conditions an operation fl that directs the subroutine back to the set of 
operations that printed the first line. In this way, multiple lines of printing are 
performed for a customer who has more than one transaction. If the indicator 
is off (there are no other transactions), the subroutine prints the customer's 
name at the bottom of the form fl. The SKIPB(40) fl places the print 
position at line 40. The SKIPAO) fl advances the print position past the end 
of the form and forces a new page. The next record (for a new customer) is 
read and printed. When all records have been read from the data set 
(indicator 05 is on), the subroutine ends fl. 

The sample in Figure 14-5 illustrates the result of using this program. 



Formatted Printing for Application Programs 159 



RAYMOND B. ATHERTON LAW FIRM 

Bismarck, North Dakota 



Date of Service Type of Service 



Associate Who Helped You 



061781 


WILL $150.00 


JUSTIN R. GROSSMAN 


063081 


ADOPTION PAPERS $55.00 


JUSTIN R. GROSSMAN 





























SILAS MERINA, APT 88, RIDEPORT ROAD, BISMARCK, N.D. 

Figure 14-6 (Part 1 of 2). An Example of the Printed Form Resulting from Using the Program in Figure 14-4 
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RAYMOND B. ATHERTON LAW FIRM 

Bismarck, North Dakota 



Date of Service Type of Service 



Associate Who Helped You 



060381 


LIEN SETTLEMENT $83.95 


■ 
MARVIN P. MAYNARD 



































MARJORIE DAVIS, 1615 DARTMOUTH AVE., BISMARCK, N.D. 

Figure 14-5 (Part 2 of 2). An Example of the Printed Form Resulting from Using the Program in Figure 14-4 
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DESIGNING A PRINT DATA SET THAT DESIGNS THE FORM TO BE USED 

Before you can begin writing the program that creates the form, you must 
design the form on paper. Part of this design involves the appearance of the 
form, and the other part involves the measurements to be used in describing 
the form in the program. 

The sample in Figure 14-6 illustrates the form design that is used in this topic. 

The programmer has decided to use 8.5- by 1 1-inch continuous forms rather than 
having special forms made. This means that each form is 1 1 inches long (66 lines 
long-1 1 inches by 6 lines per inch). 

The form begins 2 inches from the top perforations D. The programmer wants 
the headings centered, so he must first calculate how many characters there are in 
each heading. JERRY'S SALVAGE YARD contains 20 characters. Because each 
character occupies 0.1 inch, 2 inches are required for this heading. There are 8.5 
inches across the page. The center of the page is 4.2 inches fl from each margin. 
If the heading is 1 inch on either side of this center line, the heading is centered. 
Mark the heading to begin 3.2 inches fl from the left margin. 

Leave a space between this first heading and the address to make both more 
readable. The second heading has 14 characters (1.4 inches). This means that 0.7 
inches should be on either side of the center mark to center the heading. Mark the 
heading to begin 3.4 inches fl from the left margin. 

The third heading is 15 characters. Mark the heading to begin in the same position 
as the second heading fl . 

The heading is complete. Next space down 3 lines (which is 0.5 inches). Begin the 
customer address 1 inch (10 characters) from the left margin fl. Leave enough 
space for the entire customer address as shown in the illustration fl. 

Start the column headings for the bill. Beginning at the left margin, indent 1 inch 
and write Date fl. The heading Date should occupy 0.5 inches. You know that 
the dates require 0.6 inches (6 digits at 0.1 inch each), so leave about 4 characters 
(0.4 inches) space after the heading. This space provides separation between this 
field and the next field. Write the heading Parts fl . Include enough space after 
this heading so the associated field has enough space to provide a description of the 
parts that are being billed. Four inches following the heading Parts should be 
sufficient fl. 

Write the heading for the last column (Cost) fl. In this sample, the maximum cost 
of a part sold by this company is 5 digits long (2 decimal positions). Therefore, the 
maximum width the field requires is 0.6 inches (1 character for the decimal point). 
Make the column width 1 inch to provide margin space. 
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Next, you need to provide a line beneath the column headings to separate the 
headings from the entries. This line should begin 1 inch from the left margin 
and should be 6.5 inches long. 

Finally, you should have an area that gives the accumulated balance of the bill. 
Leave 4 inches for individual entries E- At the bottom of the form, skip three 
lines after the last entry. Now go to the right 6 inches and write the heading Balance 
in the lower right corner of the bill Q. Leave enough space for a 9-character field. 

You now have enough information to begin writing the program that will print 
this form. 
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Sample 14-6 



&XVCHES 



3Z' 



SPAce a uj-A/es 



3-H-" 



if. I UNCHZS 

B ' 

i a 

RAINMAKER R.OAD 



•space &- Ljyues 



.LEWXSTON^ pe/w 



3 SMC£S 



1 XA/CH E 



.TO*. 



3 jr/vcH€5 Cso zH-rte.} 



DATE" PACTS 



B3it XNCHE5 



/ 



Oc 



IB 



65 xmchzs 



3 sPAces 



ft- 



uc*e 5 



m 



COST. 



oM 



(> 



f< 



iB8fl/-rtA/c6 



Figure 14-6. The Design for the Form to Be Created by the Program in Figure 14-7 
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The sample in Figure 14-7 illustrates the program that creates this form. An 
illustration is included to show you a printed copy of the form. To include 
entries on the form as it is created, simply use the principles you learned in the 
first part of this chapter. 



1 7 * tt •«• X- * * -X -X- -X W X X X -X *• X # -X X *• -X- # * * W -X # * * * * -X *• * it- * -X W * W * *• * *• * -X * W -X -X * * # * -X •& -X- -X- -X- *• -X tt -X -X 

00002 Z» PROGRAM 74. FIGURE 14-7 IN THE DE/RPG USER'S GUIDE * 

00003 Z #*•######**##*#******###***#***•**#*#***#*■*#*****##***# *#***#*#**# 

00004 ZJ PRTEX 

00005 Z Pi FORM 

00006 A F 

00007 A R 

00008 A 

00009 A R 

00010 A 

0001 1 A R 

00012 A 

00013 A R 

00014 A 

00015 A R 

00016 A 

00017 A R 

00018 A 

00019 A R 

00020 A 

00021 A 

00022 A 

00023 A R 

00024 A 
00024 A 
00026 A R 

00029 A R 

00030 A 

00031 C 

00032 C 

00033 C 

00034 C 

00035 C 

00036 C 

00037 C 

00038 C 

00039 C 

00040 C 

00041 

00042 C 

00043 C 

00044 C 



IE 




EOJ 




FORMPRT 


132 


DEVICE (PRINTER PI 


) FORM (66) 


NAMEHEAD 




SKIPS (12) SPACE A 


(2) 






033 ' JERRY ' ' S SALVAGE 


YARD ' 


ADDHEAD 




SPACEA(2) 
3 5 * R A I N M A K E R R A D ' 




CI THE AD 




SPACE A ( 3 ) 
035'LEWISTON, PENN ' 




CUSNAHED 




SPACEAd ) 
Oil' TO-. ' 




CUSADHD 




SPACEb( 1 ) 
Oil' 




CUSCITHD 




SPACEA(2) 
Oil' 




ENTRYHD 




SPACEAd ) 
Oii 'DATE' 
020 ' PARTS' 
065 ' COST ' 




LINE 




Oil' 




LIN END 




r>Kww(vsrw?tf,imi 


"":::::::: 


B A i... 




SKI PA (55) 
060' BALANCE: ' 




FORM 


BE GSR 






NEXT 


TAG 

WRITENAMEHEAD 

WRITE ADDHEAD 

URITECITHEAD 

WRITECUSNAHED 

WRITECUSADHD 








WRITECUSCITHD 




~ 




URITEENTRYHD 








WRITELINE 








WRITELINEND 








WRITEBAL 








GOTO NEXT 








ENDSR 







Figure 14-7. A Sample Program that Creates a Form 
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JERRY'S SALVAGE YARD 
RAINMAKER ROAD 
LEWISTON, PENN 



TO 



DATE PARTS COST 



BALANCE 
Figure 14-8. The Form that Is Created When the Program in Figure 14-6 Is Used 
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Part 7. Using Calculations 



This section provides information about various ways to perform calculations 
using DE/RPG. 

The types of calculations that are available on the A-specification: 

• INSERT(constantoperatorconstant) 

• INSERT(constantoperafornamed field) 

• INSERT(named fieldoperafornarried field) 

• ADD(*TOTn or named field) 

• TADD(*TOTn or named field) 
. TSUB(*TOTn or named field) 

• SUB(»TOTn or named field) 

operator can be + (addition), - (subtraction), * (multiplication) or / (division) 
*TOTn stands for counters 1 through 9 
The topics presented in this part are: 

• Considerations about using calculations 

• Using named fields in calculations 

• Using counters in calculations 

• Keeping online totals using the A-specification 
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USING NAMED FIELDS IN CALCULATIONS 

The sample in Figure 15-1 illustrates a simple data-entry program that uses 
calculations. If named fields are used in a calculation, they must have been 
created as numeric fields; that is, they must have had a decimal position entry 
Q when they were created. Numeric fields are a maximum of 1 5 positions 
long. 



0000 iZ** 

00002Z* 

00003Z** 

00004ZJ 

00005Z G 

00006Z 

0000 7 A 

00008A 

00009A 

00010A 

0001 i A 

00012A 



W W W W W W W W W W W W X ***************************************************** 

PROGRAM 75. FIGURE i5-i IN THE DE/RPG USER'S GUIDE 

* * * * W W W W W W W W W W * W W * W W W W W * * * * * W W * W * * W * W WW ************ *************** 



INDICEX 
1SH0W 



IE 
R 
EXMW 
SHOW 
QUANT 
COST 
PAY 
PUTOUT 



13 

3 

4 

6 

13 



01 
21 
21 



TFT.LE< PUTOUT) 



Gi 

DEM ICE (CRT) 



DSP SUA 6 80) 



PMT( ENTER THE QUANTITY) 
PMT( ENTER THE COST) 
INSERT* QUANT wCOST) 
DEVICE (DISK Dl) 



Figure 15-1. A Sample Program Showing the Use of Named Fields in Calculations 
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If a field is not named, it cannot be referred to. If a field is not created as a numeric 
field, it cannot be used in the calculation. A field with no decimal position entry is 
considered a character field. Character data cannot be used in a calculation. 

When you include an arithmetic expression in an insert operation, be aware 
that DE/RPG does not include embedded parentheses to denote that an 
expression should be handled as a unit; all expressions are evaluated from left 
to right with multiplication and division being performed first and then 
subtraction and addition being performed. For example, the expression 
INSERT(1+3*14) results in 43 (1+42) rather than 56 (4*14). 

When you use constants in a calculation for an insert operation, decimal 
positions are permitted. For example, 

INSERT(.15*PAY) 

could be used to determine 1 5 % of the field named PAY. 

The lengths of the source field and the receiving field must be considered. For 
example, if you are adding two fields, each with a length of 5, the receiving 
field should have at least a length of 6. See the sample in Figure 15-2. 

i Z *■ *• * * * « * * *• * *• *■■ « * * # K * * * * * * * * * * * * » * * * * * * * * « * * * * * * * * « * K * * * * * * * «• K * * * •* * * * * * 

00002Z* PROGRAM 76, FIGURE i.5-2 IN THE DE/RPG USER'S GUIDE 

3 Z ****** » * **** ** ***** w ********** # *#**#****»*»*#**#****»***«»***#***#* ai- 



lS 



U|'::> 21 INSERT(C0STi+C0ST2) 
15 DEVICE (DISK Di) 

Figure 15-2. A Sample Program Showing the Effect of the Length for Fields Involved in a Calculation 



If the receiving field has a length less than the source fields, significant digits 
can be lost from the calculation. 

If, COST1 D equals 500.00, COST2H equals 600.00 and PAY D has a length of 
5 Qwith two decimal positions, PAY will be 100.00 rather than the 1 100.00 it 
should be. 



00004ZJ 


CAI 


...CEXM 


00005Z C 


S2FIGURE IE 


00006Z 




R 


0000 7 A 




F DISP 


00008A 




«jL FIGURE 
D COST! 


00009 A 




000 10A 




n C0ST2 

■■ PAY 


000.1.1 A 




00012A 




F KEEP 





TFILE(KEEP) 




G2 

DEVICE (CRT) DSPSIZ(6 80) 


I 


PMT< ENTER THE PRICE OF ITEMi) 


I 


PMT< ENTER THE PRICE OF ITEM2) 
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USING COUNTERS IN CALCULATIONS 

The counters (*TOT1 through # TOT9) are 1 5 positions wide. All entry of data 
into a counter is accomplished by the ADD, TADD, TSUB, or SUB operations 
on arithmetic calculation operations. All entry of data in a counter is 
right-aligned. 

Transfer of data from a counter is accomplished with the insert operation. The 
insertion of data from a counter into a receiving field is right-aligned. See the 
sample in Figure 15-3. 

i Z ***************** * * * * * * * * * * * * * * * * * ********* ****** *********** * * * * * * * * 

00002Z* PROGRAM 77. FIGURE 15-3 IN THE DE/RPG USER'S GUIDE * 

00003Z* ****** ******************** ***************************************** 

00004ZJ COUNTEX TFILE ( DISKET ) 

00005Z H2EXMPLE IE 

00006Z R H2 

00007A F CALCL 60 DEVICE (CRT) DSPSIZ(6 80) _ 

00008A R EXMPLE U 

00009 A NAME 6 01 ^ PMT( ENTER THE FIRST PRICE) ADD(*T0T+ 

00009A Q 1) 

00010A PRICE 6 21 PMKENTER THE SECOND PRICE) 

oooiiA Qadd(*tot:'> m 

00012A LOOK 6 21 INSERT ( *T0Ti ) ■■ 

00013A OKAY 6 21 INSERT ( *TuT? ) El 

00014A F DISKET 60 DEVICE ( DISK Dl ) 

Figure 15-3. A Sample Program Showing the Use of Counters 

If you assume that the entries are both 004488 Q then the contents of 
•TOT1 is 0000000000004488 Q and the contents of *TOT2 || is 
0000000000000044. 

When *TOT1 is inserted into the field Q, the field contains 4488.00. When 
*TOT2 is inserted into the field Q the field contains 0044.00. 

The counters use two functions that provide decimal alignment (ADD and SUB) 
and two that do not provide decimal alignment (TADD and TSUB). 
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Consider an example contrasting the ADD and TADD functions. The sample in 
Figure 1 5-4 illustrates the differences. 



00001Z***************** 


00002Z* 


PROGRAM 


i 78. FI 


00003Z***************** 


00004ZJ 


DECOUNT 


oooosz : 


I i DUMMY 


iE 


00006Z 




R 


00007A 




F XAMP 


00008A 




R DUMMY 


00009A 




QUANT 


OOOiOA 




mm PRICE 


00011 A 




TOTAL 


00012A 






00013A 






00014A 






000 ISA 




F WRITE 



GURE 15-4 IN THE DE/RPG USER'S GUIDE 

«**#***»*« ##»*# ************* *********************** 

TFILE( WRITE) 



50 



Ii 

DEVICE (CRT) 



DSPSIZ<6 80) 



3 


21 


5 


21 


15 


21 


15 


21 


50 





PMT( ENTER THE QUANTITY) 
PMT( ENTER THE PRICE) 
INSERT (PRICE*QUANT) ADD(*TOTi)| 
HTADD(*T0T2) 
■■lN.VERT(*T0Tl> 
INSERT <*T0T2) 
DEVICE (DISK Di) 

Figure 15-4. A Sample Program Showing the Difference between the ADD and TADD Operations 

If QUANT H equals 2 and PRICE Q equals 2.44, the product of multiplying 
QUANT and PRICE is 4.88. TOTAL Q contains 0044.88. *TOT1 Q contains 
0000000000000004. *TOT2 Jg contains 0000000000000488. 

The fields in which *TOT1 and *TOT2 are inserted respectively are: 

00000000000000400 and 0000000000048800. 

If you intend to use the counters in online totals, be careful of the way you use 
decimal positions. 

Two more consideration are important in using counters for online totals: (1) 
resetting the counters and (2) controlling the counters as data is loaded into 
them. 
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The sample in Figure 15-5 illustrates a program that has three types of records 
in the data set: header Q detail Q, and trailer Q. There is always one Q 
header record, multiple £ detail records (this number varies), and one | 
trailer record. The counter is being used to keep an online total of the number 
of purchases made on the detail records for a single customer. 



1 Z ********* * * * * * * * * * ****** 


00Q02Z* 


PROGRAM 79. FIGURE 15 


3 Z ************* * * * * * * * * * * * 


00004ZJ 


I RESEXMP W m 
Ki HEADER __iE'||| 
K2DETAIL H NE sn 
K3TRAILER IeQ 


00005Z 


00006Z 


00007Z 


00008A 


F INPUT 
D R HEADER 


00009A 


000 i<) A 


CUSNA 


0001 i A 


ADDR 


00012A 


COUNT 


00013A 


QR DETAIL 


00014A 


ITEM* 


000 15 A 


NUMSLD 


000 16A 


PERPRI 


000.1. 7 A 


TOTAL 


000 18A 




000 19A 


IJR TRAILER 


00020A 




0002.1 A 




0002 2 A 


F BILL EX 



******************************************** 
~5 IN THE DE/RPG USER'S GUIDE 

******************************************** 

TFILE(BILLEX) 
K2 
K3 
Ki 
75 DEVICE(CRT) DSPSIZ<6 80) 



PMT( CUSTOMER NAME) 
PMT< ADDRESS) 



30 


I 


30 


I 


15 


2U 


6 


I 


3 


01 


4 


21 


6 


21 


9 


21 


75 





PMKENTER THE ITEMS) 
PMT(QUANTITY SOLD) 
PMTCPRICE PER ITEM) 
INSERT < NUMSLD*PERPRI ) 
|ADD(C0UNT) 

INSERT(C0UNT)O 
|RESET( COUNT) 
DEVICE (DISK Dl) 



Figure 15-5. A Sample Program Showing the Use of a Named Field as an Online Counter 

The sample in Figure 15-5 illustrates how this online total is being kept by 
adding the results from each detail record into the counter Q at the 
completion of the record. At the completion of all detail records for a single 
customer, the contents of the counter is inserted Q into the trailer record. The 
counter is then reset Q so that it does not carry a balance from one customer 
to another. 
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Part 8. Chaining From Job to Job 



This chapter describes how to use the EOJ keyword on the Z-specification to chain 
DE/RPG jobs. Chaining links one DE/RPG job to the next job. The next job in 
the chain can be another DE/RPG job or any other program. 

USING EOJ ON THE Z-SPECIFICATION 

The name parameter in the EOJ keyword provides the name of the object 
program data set (as it appears on the diskette) that you want to go to upon 
completion of the current program. The name parameter can be either a 
constant name or a variable name. 

A constant name cannot be changed by an entry from the keyboard. The name is 
coded on the Z-specification enclosed in apostrophes. For example, if you always 
follow a payroll program with the check -writing program, you name the check- 
writing program in the EOJ keyword parameter within apostrophes. 

A variable (dummy) name is one that is set by the program to select the next 
program to be loaded. The variable name is not enclosed in apostrophes. 

This chapter illustrates both techniques that can be used to chain programs. 
A DE/RPG program that loads a utility program illustrates the use of a 
constant name. Another program illustrates how you can use a menu to allow 
the operator to select the next program. 
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USING A CONSTANT NAME TO SELECT THE NEXT PROGRAM 

The sample program in Figure 16-1 shows the constant name SYSPRINT 
on the EOJ keyword. SYSPRINT is loaded when the current program is 
completed. Everytime the current program is run, SYSPRINT is the next 
program run. 



OOOOi 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
OOOiO 
OOO ii 
00012 
00013 
00014 
00016 
00017 
00018 
00019 
00020 
00022 
00023 
00024 
00025 



Z* *************************** *tt*tttt****«****tt*Ktt ft ***************** 

Z* PROGRAM 80. FIGURE 16-1 IN THE DE/RPG USER'S GUIDE * 

7***** *********************************************************** 

ZJ LOKEXM 



Z XiSUB 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

C 

C 

C 

C 

C 

C 



N99 
01 



IE 
INPUT 
CHECK 



F PREP 
R ONE 

FLDi 

FLD2 

FLD3 
F RANTAB 
T EXTAB 
SUB 



FLDi 



5 

1 

10 

5 
3 
2 

5 
5 



01 
I 



O 



BEGSR 

READ ONE 

Z-ADDi 

LOKUPEXTAB,A 

EXFMTCHECK 

ENDSR 



Bfj 



TJ< 'SYSPRINT' 
DEVICE(CRT) DSPSIZ<6 80) 



X'4800' ) 



INSERT(A) 

PMT(PRESS EOJ TO SKIP SYSPRINT) 

DEVICE<DISK Di> 



DEVICE<DISK Di) NUMENT<3) 



50 



99 



01 



* ADDR 

* 02F0 

* 02F8 

* 0312 

* 

* ADDR 

* 0313 

* 0318 

* 031B 

* 031D 

* 

*ROUTI 

*EP 

*05CC 

K063C 

*0700 

*07CC 

*OAiC 

*0BC4 

*0D2S 

*iiiO 

»1744 
*18FC 

* 7, 93 



CONSTANT 
'SYSPRINT' 

'PRESS EOJ TO SKIP SYSPRINT' 
1 

NAME 
FLDi 
FLD2 
FLD3 
A 

OBJECT PROGRAM MAP 
NE ENTRY POINTS 

RTN DESCRIPTION 

RG99 - End of job processor 

RG80 - Verify mode error display 

RG86 - Physical buffer allocation 

RGOi - Keyboard externa L status routine 

RG03 - KB/CRT I/O management routine 

RG30 - Diskette external status routine 

RG32 - Diskette I/O management routine 

RG5i - I/O driver - full function 

Z-spec driver entry point 
Program entry point 
Is the program length. 



Figure 16-1. A Sample Program Showing the Use of a Constant Program Name 
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USING A VARIABLE NAME TO SELECT THE NEXT PROGRAM 

The sample program in Figure 16-2 shows how to chain one program to 
another by using the variable name parameter in the EOJ keyword. 

The variable name PROG Q is coded in the name parameter of the EOJ 
keyword and loads the next program when the format OPT Q is executed. 
The operator is prompted for the program name of the program to run next £ 

The prompt that appears on the display screen for this sample program looks 
like this: 



000 i A 08 40 i 

SELECT YOUR PROGRAM NAME: | | I I | I I | | 



I 



J 



00001 Z*********** ********************************************* ******** 

00002 Z* PROGRAM 81. FIGURE 16-2 IN THE DE/RPG USER'S GUIDE * 

00003 Z* ******************************************* ******* **** ********* 

00004 ZJ SHOWEOJ D 

00005 Z i OPT IE E0J(PR0G X ' 4000 ' ) 

00006 Z n WRITE (*N0) 

00007 A ■" F DSPLY 480 DEVICE (CRT) _ 

00009 A R OPT Q 

00010 A PROG 8 12 2PMT(SELECT YOUR PROGRAM NAME:) 

00011 A CHECK <DR) DSPATR(CS) 



ADDR 
02F0 

ADDR 
0309 



* 

* 

* 

* 

* 

* 

* 

*R0UTINE 

*EP 

*0AFC 

*0B6C 

*0C38 

*0E88 

*1O30 

* 

*12F4 

*14CC 

* 6,400 



CONSTANT 
'SELECT YOUR 

NAME- 
PROG 



PROGRAM NAME 



OBJECT PROGRAM MAP 
ENTRY POINTS 
RTN DESCRIPTION 
RG99 - End of job processor 
RG86 - Physical buffer a L Location 
RG01 - Keyboard external status routine 
RG03 - KB/CRT I/O management routine 
RG50 - I/O driver routine 

Z-spec driver entry point 
Program entry point 
Is the program length * 



Figure 16-2. A Sample Program Showing the Use of a Variable Program Name 



Chaining from Job to Job 1 75 



176 



Glossary 



access methods: A technique for moving data between 
main storage and I/O devices. 

attribute: A characteristic. For example, attributes of a 
displayed field could include high intensity, reverse 
image, and column separators. 

background program: An application program that can be 
executed in a background partition. 

complex reformatting: The changing of the 
arrangement of data from its entry sequence to Its 
diskette format. This might include the omission of 
fields or the merging of fields from multiple record 
formats. 

counters: A register or storage location used to 
accumulate a user-defined numeric value identified by 
*TOTn. 

data-entry program: A DE/RPG program that is used 
primarily for putting volumes of data on diskette. 
Normally it makes use of the edit and check functions 
provided by DE/RPG. 



indicator: A switch identified by two digits, which are 
either OFF or ON and that can be used to condition 
actions on the A- and C-specifications. 

interactive application program: A DE/RPG program 
that is used primarily for processing data. This type of 
program requires some data input from the operator in 
order to perform the processing. Some edit and check 
functions may be used. 

I/O (input/output): Components that receive or return 
data, such as the keyboard, display, printer, magnetic 
stripe reader, and diskette. 

keys: One or more characters included in a data record 
that are used to identify or control the use of that data. 

keyword: For the A- and Z-specifications the control 
characters that define the action to be taken, such as 
CHECK, or specify characteristics of the program, such 
asTFILE. 

logical device: A two-character identifier that can be 
used to specify the device to be used, for example D1. 



data set: An organized collection of related data 
records treated as a unit and existing on diskette. 

End of Job key: For the data entry keyboard, the Cmd 
numeric shift Dup key sequence that an operator uses 
to terminate a job. For the typewriter keyboard, the 
CMD, 7 key sequence that an operator uses to 
terminate a job. 

format: A specific arrangement of information in a 
record or on a display screen. 

formatted printing: A print operation in which each 
field is specified by the program. 

indexed data set/file: A data set in which the position 
of each record is recorded in a separate file called an 
index. The index contains an index key and disk 
address for each record in the file. 



mode: The operational category of a data station, such 
as enter, verify, update, rerun, and execute. 

noninteractive application program: A DE/RPG 
program that is used primarily for processing data. This 
type of program requires little if any operator interaction. 

operation: For the C-specifications the control characters 
that define the action to be taken, such as EXFMT for 
execute the format named in factor 2. 

partition: An area of the IBM 5280 storage in which 
programs can execute. 

physical device: A four-character address for the device, 
such as 4000 for a disk or 8000 for a printer. 

status line: For the IBM 5280, the first line on a display 
screen. This line provides operational information. 



indexes: A field that is used with a table function to 
contain the table position at which a match occurs. 



Glossary 177 



subroutine: A group of instructions that always returns 
the control to the calling routine. Subroutines occur on 
C-specifications and always begin with a BEGSR and end 
with an ENDSR operation. 

unformatted printing: A print operation that is initiated 
by the Print key. 
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L^M International Business Machines Corporation IBM 5280 DATA DESCRIPTION SPECIFICATIONS 



Job No. 


Dataset 


Keying 
Instruction 


Graphic 
















Operator 


Date 


Key 

















Source Document 



GX21 -9362-2 
Printed in U.S.A. 



Page 



of 



□ 










* 

c 

E 
E 
o 
o 

7 


■D 

t 
oj 
a> 
DC 

8 


DC 














LL 
0) 

a. 

>• 
I- 

0) 

£ 

CU 

Z 
17 


■D 

0) 

t 

<u 
a> 
DC 

18 


































0) 

a 
> 
h- 
ro 
ro 

a 

35 


■o 

a) 

> 

a> 
DC 

36 


cn 

O 

c 
g 

o 

CL 

"re 
E 
o 

0) 

Q 
37 


§ 

m 
O 

Q) 
O) 

re 
38 




Location 




Editing 




O 

cr 

DC 
LU 

o 
> 

00 

> 

CD 

* 

O 
LU 

I 

o 

o 

o 

re 
o 

c 
9 10 


Reserved 

11 12 13 14 15 16 


Dataset/Record/ 
Field/Table Name 

19 20 21 22 23 24 25 26 


0) 

> 
0) 
0> 

DC 
27 28 29 


Length 

30 31 32 33 34 




Checks=CHECK (code. . .) 


ME 
RB 


Functions 








Line 

39 40 41 


Pos 

42 43 44 


Auto Dup =AD Manciatory Entry 
Auto Skip -AS Mandatorv Fill 
Blank Check =BC Rt Adj-Blank Fill 


'ADD (name) PMT (prompt) 

' AUXOUP (name) 'RANGE (low high) 

'AUXST (name) 'RANGET (table [index]) 




Sequence 

12 3 4 5 


Q. 

> 

e 

o 
u. 

6 


Bypass on Verify -BV Rt Adj-Zero Fill «RZ 'literal' [indicator] ) SEQ ('test) 
Data Required =DR 'self-Check -nxx DSPATR (Vtr ..) 'SETOF (ind) 
Dup Disable -DD D=M/G (Check/Gen) 'EDTCDE (code 'float') 'SETON (ind) 
Field Exit Required =FE xx=Modulus ERROR (code ['message'] ) SHIFT (Shift) 
LowerCase =LC 'EXSR (subroutine) 'SUB (name) 

'INSERT (fid iV.fldn 'literal') 'SUBST (table 1 table 2 (index) I 
LOOK (uble (index] ) 'TADD (CTOTn] [name] I 
'TSUBU'TOTn] [name] I 
'XCHK (table index 1 index 2) 
'literal' 
'not valid for COBOL programs 
'test-EQ.GE.GT.LE.LT.NE 
3 *?-+.-."./ 

%ttr=BL,CA.CS.HI,ND.RI,UL 
5 shift-A,D,H,N,V,W.X,Y 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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Identifies the source statement order. 
Identifies the type of source statement. 
An * indicates a user comment. 
Reserved. 

Specifies the indicator that is used to control field 
bypassing or displaying user error codes. 

Reserved. 

Defines the type of statement: F = data set, R = 

record, K= key field, T = table, blank = field. 

Reserved. 

Specifies the name for: data set (max 8 characters), 
record (max 8 characters), field (max 6 characters) 
or table (max 6 characters). 

Reserved. 

Specifies the length: 

data set = maximum record length is required. 

record = number of characters (1-8192) 

field = number of characters (1-256 for alphameric 

or 1-15 for numeric). 

Defines the data type for the field: 



A = alpha 

B = binary 

C = use SHIFT keyword 

D = digits only 

H = hexadecimal 

N = numeric 

P = packed 



S = signed numeric 

V == right half only 
W = right half shift 
X == alpha only 

Y - numeric only 

b - alpha or numeric 
depending on the 
field type. 



Specifies the number of decimal positions (0-9). 

Specifies how the data in a field on the display 
screen is processed. I = input, O = output, B = both, 
W = workspace. 

Specifies the location of the field within a record or 
on the display screen. 

Specifies parameters for data sets, files, records, 
tables, and fields 



IX, Li 



></ fill's (f- 



17) 



BLKING (I'DBLI fFMTUor * FMTS I )- specifies 
blocking characteristics for data sets: 

"DBL specifies to use two physical buffers 
"FMTU specifies that the records are 

unblocked (Basic or H data exchange) 
"FMTS specifies that the records are blocked 
and spanned (1 data exchange) 
DEVICE (dev type address)— physical device type for 
the data set: 

dev type is COMM or COMM 3270 (com- 
munications), CRT (keyboard/display), DISK 
(diskette), MREAD (magnetic stripe reader), 
PRINTER (printer), 
address is the 2 -character logical ID or the 
4-character device address (X'xxxx where 
xxxx is the physical address). 



DSPSIZ (lines 80)— specifies display size: lines = 6, 
12, or 24. 

FORM (length [overflow-line overflow-ind] )— Specifies 
the printer page size; length specifies the lines 
available on the page, overflow-line specifies the 
line that sets the overflow indicator on, and 
overflow-ind specifies the indicator that is set on. 

INDEX ( [storage) (data set] I— At least one parameter 
must be specified. Specifies the storage reserved 
for the sparse index and the index data set name: 
storage specifies the space required for the index, 
data set specifies the name of the index data set. 

LABEL (name of data set)— diskette data set name. 

LOGON ('message' or name)— Specifies the log on 
information when required for communications. 
The parameter can be either a message enclosed 
in single quotes or a variable name. 

NUMENT (number)-number of records in a data set 
when used for dynamic allocation of the data set 
or the number of entries in a table. 

Records IR in column 17) 

DSPATR (attr... (-Specifies the display attributes that 

apply to all the fields in the record. 
MARK (*POSnnnn)-Specifies the position in a data 

record where an E is place if the Field Mark key 

is pressed. 
VMARK I "POSnnnn) -Species the position in a data 

record where a V is placed after the record is 

verified. 
RECID ("POSr/nnn c')-Specifies the position that 

identifies the single character record type V 

from a data set with more than one record type 

(nnnn is T to 1892) 
SPACEA (n) -Causes the printer to space n lines after 

the record is printed. 
SPACEB (n)-Causes the printer to space n lines before 

the record is printed. 
SKIPA (n)— Causes the printer to skip to line n after 

the record is printed. 
SKIPB (n)-Causes the printer to skip to line n before 

the record is printed. 

Field (Blank in column 17) 

ADD (name)— Adds the data in the current field to the 

named field with decimal alignment. 
AUXDUP (name)-Duplicates data from the named 

field if the Dup key is pressed or the Auto 

Dup/Skip switch is on. 
AUXST (name)— Stores the current field in the named 

field if the Auto/Dup switch is on. 
CHECK (parameter)— Specifies the keyboard edits to 

be applied to the field. 
COMP (test fid 1 @...fldn 'literal' [indicator] )- 

Compares the current field with a named field, the 

specified expression, or a literal and optionally 

turns on an indicator if the compare is true. 
DSPATR (attr...)-Controls the display attributes for 

each field. 



EDTCDE (code float )- Specifies the editing that is 
to be applied to data in numeric fields, where: 

• code is a single character that controls the use 

of editing characters specified by the EDITC 
keyword. 

• float can be either: 

*, which places asterisks in the character 

positions to the left of the first digit 
cu, which floats the two-character currency 
symbol used on EDITC. 
ERROR (code ('message'] )-Locks the keyboard, 

displays an error code, and optionally displays an 

error message (when the Help key is pressed) if 

the specified indicator is turned on. 
EXSR (subroutine)— Branches to the named calcula 

Hon subroutine 
INSERT (fid 1 «J ...fldn literal') -Inserts the named 

field, expression or literal into the current field. 
LOOK (table (index) (-Compares the current field 

for a match in a table, and optionally places the 

index value of the table entry in index 
PMT (prompt) -Displays the prompt mess.ige when 

the current field is entered. 
RANGE (low high) -Specifies the low and high limits 

for data that can be entered into the current field 
RANGET (tablelindexl l-Compares the current field 

for a match in a table of low and high limits, and 

optionally places the index value of the table entry 

in index. 
RESET (["TOTnl [name] (Only one parameter is 

allowed. Sets the named counter to 0. 
SEQ (test)-Sequence checks the data in the current 

field against the data from the previous sequence 

check using the specified tsst. 
SETOF (indl-Turns the specified indicator off 
SETON (indl-Turns the specified indicator on 
SHIFT (shift)-Specifies the shift and character set 

for each character in a field when C is specified 

for data type 
SUB (name) -Subtracts the data in the current field 

from the named field with decimal alignment 
SUBST (table 1 table 2 lindex] )-Compares the 

current field for a match in table 1 If there is a 

match, replaces the current field with data from 

the corresponding entry in table 2 Optionally 

places the index value of the table entry in index. 
TADD (["TOTnl [name] )-Only one parameter is 

allowed. Adds the current field to the named 

counter. 
TSUB ( [ "TOTnl [name) )— Only one parameter is 

allowed. Subtracts the current field from the 

named counter 
XCHK (table index 1 index2)- Compares the indexes 

to see if they match an entry in a named table of 

index pairs. 

Continuation— Specifies to continue on the next line 
+ specifies to continue with the first nonblank 
character in position 45-80 on the next line 
(ignore leading blanks) 

specifies to continue from position 45 on the 
next line (leading blanks are included). 
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Options 



Entry Lines 



CLRL (number) 

EOJ [(('job' dm) CPASSJ)] 

SLNO (line) 

WRITE (name) 



Job Line 

CFILE (data set) 

DATE (•DMY/'YMO) 

EDITC (cuptd) 

ENTRATR Cattr. . .) 

EXITATR Cattr. . .) 

JOBOPT ((•NOPMT][-NOOPEN|) 

PRTFILE (data set) 

SHARE (names) 

SHARER (names) 

STATUS (name) 

TFILE (data set [delfreq]) 

>attr=BL,CS,HI,ND,RI,UL 
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1-5 Identifies the source statement order. 

6 Identifies the type of source statement. 

7 Names the type of source statement: 

•-User comment 
J-Job specification 
blank-Format specification 

8-9 The identification associated with this format: 

1 through 9— A single numeric character ID. 
AO through Z9-A two-character ID consisting of 
an alphabetic character followed by a numeric 
character. 

10-17 The name used to: 

- identify the job {J in column 7). 

- identify the format or subroutine (blank in column 
7). 

These columns are not used if column 21 contains an 
R. 

18-19 Reserved. 

Note: Columns 20-54 are not used if column 7 contains a J. 

20 Specifies the number of times the format is repeated 
before the next format is used: 

1 through 9— Repeat the format for the specified 
number of times unless the SEL FMT or NEXT 
FMT key is pressed. 

blank or N-Repeat the format until the SEL FMT or 
NEXT FMT key is pressed. 

21 Specifies how the format is used: 
E-(Entry) used to enter and display data. 
R-(Review) used to select a format for scan, update, 

or verify of existing records. 

22-37 Used for logical selection of a format. Multiple tests 
are allowed. In enter mode, the format selected is 
used to format the next record entered. In review 
mode, the format selected is used to display the 
current record. 

22 In review mode (column 21 contains an R), an A 
specifies the anding of two characters in the data 
record to create a unique record identifier. 

23-30 "POSnnnn identifies the position in the data record 
to be tested, where nnnn is a numeric value from 1 
to 1024. 



41-50 51-60 

31-32 Reserved. 

33-34 The characters EQ or blank when a character to test 
for is specified in position 35-37. 

35-37 Specifies the character that controls format selection 
if it matches the character in the data record. 

38-44 Reserved. 

45-46 Specifies the identification of the format used for the 
entry or display of the next record. If columns 22-37 
are specified, the format is selected when a match 
occurs. If columns 22-37 are not specified in enter 
mode (E in column 21), the format is selected when 
the repeat count (column 21) is met or the NEXT 
FMT key is pressed. If columns 22-37 are not 
specified in review mode (R in column 21), the 
format is selected if no previous match occurs. 

47-54 Reserved. 

55-80 Keywords that specify information used for jobs or 
formats: 

JOB specifications (J in column 7): 
CFILE (data set)-lncludes the COPY function in the 

job. The parameter data set is the data set name 

from which records will be copied. 
DATE( # DMY/ # YMD)-The format of the date available 

in UDATE. The default is »MDY, where M = 

month, D = day, and Y = year. 
EDITC(cuptd)-Five characters that define the editing 

control for output fields, where: 

- cu is a two-character currency symbol (default 

= b$>. 

- p is the decimal point character (default = .). 

- t is the thousand separator character (default 

- d is the date separator character (default = /). 
The system default for this option is b$.,/ if 

EDITC is not specified. 
ENTRATR (attr... (-Specifies the attributes that are 
applied to all input/ both fields only when the 
fields are being entered, where attr is: 

BL (blink) 

CS (column separators) 

HI (high intensity) 

ND (nondisplay) 

Rl (reverse image) 

UL (underline) 
A combination of attributes can also be used. 
EXITATR (attr...)-Specifies the attributes that are 
applied to all input/ both fields after the fields 
have been entered. See the ENTRATR for a 
description of the attr parameter. 



I I 
81-90 



91-100 



JOBOPT(fNOPMT] [«N00PEN])-At least one of the 
parameters must be specified. Where: 

- *NOPMT specifies to bypass the prompts for 
data set information at the beginning of the 
job. 

- *NOOPEN specifies to bypass the automatic 
opening of all files except the transaction file 
specified by the TFILE keyword. 

PRTFILE (data set)-lncludes the PRINT function in 
the job. The parameter data set is the data set 
name to be assigned to the printer. 

SHARE(names)-Allows other programs to read or 
write records in the data set specified by the 
names parameter while this program is executing. 

SHARER(names)-Allows other programs to read 
records in the data set specified by the names 
parameter while this program is executing. 

STATUS(name)-Establishes a variable that can be 
used to check the status of an I/O device after an 
I/O operation. The parameter name is the name 
assigned to the variable. 

TFILE(data set [delfreq])-Specifies the data set where 
records will be written after a format is 
completed, where: 

- data set is the name of the data set that 
receives the transaction records. 

- delfreq specifies how often deleted records are 
automatically inserted in the transaction data 
set. 

Format Specifications (blank in column 7): 

CLRL (number)— Specifies the number of display lines 
cleared, starting from the first line of the display, 
when a new record is to be entered. If *NO is 
specified, none of the display lines are cleared. 

EOJ [([ ' job ' dev] [*PASS]))-Causes the end of the 
job upon completion of the format. The optional 
parameters are: 

job— name of the next job job to execute, 
dev-the device address where the next job is 

located. 
•PASS-suppress job production statistics. 

SLNO (line)-Specifies the uppermost display line that 
can be used. All display line references are based 
on the specified line as line one. 

WRITE (nameh-Specifies that the current data is 
written to the data set in the record format 
specified by name. If *NO is specified, the current 
data is not written to the data set. 

Continuation can be specified by a + or - as the last 
character on the line, where: 

+ specifies to continue with the first nonblank 
character in positions 55-80 on the next line 
(ignore leading blanks). 
- specifies to continue from position 55 on the 
next line (including leading blanks). 



16-30 



46-60 



76-90 



91-105 



lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 



106-120 

MINIUM 



mini 



1 1 1 1 1 1 1 1 1 ] 1 1 1 1 1 E 1 1 1 1 1 1 1 1 



International Business Machine Corporation 



RPG CALCULATION SPECIFICATIONS 



Program 


Punching 
Instruction 


Graphic 
















Card Electro Number 


Programmer 


Date 


Punch 

















GX21-9093-2 UM/050* Printed in U.S.A. 
•No. of forms per pad may vary slightly 



1 2 



Page 



□>_ 



75 76 77 78 79 80 



Program 
Identification 





c 






o> 




Indicators 
































i: 




















Result Field 


X 


Resulting 
Indicators 


































> 

r- 

E 

o 
u. 

6 


© _ 

-• oc 
_ o 

_l < 
o of 

35 

7 8 


1 1 


Factor 1 

IS 19 20 2t 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


; ": Factor 2 ■ 

33 34 36 3S 37 .3B : .3» 40 41 42 


Name 

43 44 45 46 47 48 


Length 


c 
g 

8 

Q. 

13 
E 

a> 
52 


Arithmetic 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Line 
3 4 5 


Plus frtimal Zero 








i 

S3; 


Compare 


1 > 2fl <2j 1 = 2 


1 


10 


11 


J" 

12 


13 


14 


i 

J*, 


16 


17 


Lookup(Factor 2)is 


High 

54 55 


Low: Equal 

*» S7 58 59 





1 




c 






























































































^ 















































2 




c 













































































































































3 




c 













































































































































4 




c 













































































































































5 




c 






: 







































































































































6 




c 
























































* 












































'<► 







































7 




c 













































































































































8 




c 




























































- 

















































































9 




c 










































































































































1 







c 










































































































































1 


1 




c 










































































































































1 


2 




c 










































































































































1 


3 




c 










































































































































1 


4 




c 










































































































































1 


5 




c 










































































































































1 


6 




c 










































































































































1 


7 




c 










































































































































1 


8 




c 










































































































































1 


9 




c 


















• 
























































































































2 







c 






































































»v 










































































c 




































































































" < 








































c 


























































































t. 


















































c 


























* 




















































































































c 
































.. : 


























































■ 












■|| 










































c 




























, 



























-J 






l| 


I-, 


























, 






— 

PS 




: ■■ : 




































ZL 


u 


01 


69 


89 


19 


99 


99 


*9 


C9 


29 


19 


09 


6S 


89 


IS 


99 


39 


►9 


ES 


ZS 


19 


09 


6» 


8* 


/»• 


Qfr 


Ob 


Mr 


p«f 


J**. 




A4» 



































































This page is intentionally left blank 



184 



Index 



►POS 

entry formats 
review formats 

•TOT 166 



53, 55, 57, 58, 61 , 62, 64, 96, 1 23 
64,96 



access methods 
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direct access 1 29 

of indexed data sets 1 30 
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of indexed data sets 127 
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application programs 

controlling the I/O devices 37 

data set organization 32 

data set update 35 

keys that are active 31 
arithmetic operations 167 
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BL 88 
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calculations 
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with named fields and INSERT 169 

calling subroutines 
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CFILE 22,10 
CHAIN 40,47 

(see also direct access methods) • 
chaining jobs 1 73 

changing the entry and review formats 78 
CHECK(BY) 96,57,61,97,103 
CHECK(DR) 43,51,103 
CHECK(FERZ) 80,103 
CHECK(FE) 22 
clearing lines on the display 
CLOSE 42 
CLRL 10,86,88 
column separators 

with a formatted display 

with an unformatted display 
combination programs 43 
communications 42 
COMP 

on A-specification 102, 103 

on C-specification 65, 69 
compile-time tables 139 
complex format selection 61 , 78, 88 
complex reformatting for the diskette 92 
constant name 174 
copying 22 

creating multiple records from a single record input 
current field attributes 84 
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data set open prompt 17, 1 22 
data sets 

access methods for 117 

created using application programs 9 

created using data-entry programs 9 

multivolume 120 

reformatting 9, 92 
data-entry programs 

characteristics of 15 

differences with application programs 9 

keys that are active 21 
default diskette records for transaction files 9 
default display format 49 

(see also format 0) 
DEVICE 2,42 

differences between data-entry and application programs 
direct access methods 1 29-1 34 
displaying multiple records at the same time 86, 88 
DSPATR(BLHI) 88 
DSPATR(CS) (see column separators) 
DSPATR(ND) 83 
DSPATR(RI) 83 
DSPATR(UL) 103 
DSPS I Z 2 
dynamically created fields 92, 111, 1 14 



Index 185 



EDTCDE 10,86 
ENDSR 2,3 
enter mode 15, 16 
ENTRATR 84,85 
EOJ 10,173 
ERROR 102,103 
execute mode 31 
EXFMT 31,37,47 
EXITATR 85 
EXSR 70 
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key-initiated modes 20 
keyed data sets 126,130 
keys 21,31 
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logical device ID 122 
LOKUP 135, 143 
LOOK 135,137,139 
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fill-in-the-blank displays 83 

FORM 152 

format 58, 75 

formatted displays 76 

formatting 73, 91 
definition of 47 
diskette formats 67, 91 
display formats 65, 73 
entry formats 50 
format selection by testing 
review formats 54 
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menus 53,80 

merging multiple fields from multiple records 

mode select prompt 1 7 
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automatically selecting 18, 50 

designations 20 
MOVE 144 
MOVEA 145 
MULT 93 

multiple entry formats 71 , 88, 94 
multiple tables 142 
multivolume data sets 120-121 
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ND (nondisplay attribute) 
nondisplay attribute 83 
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